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ABSTRACT 


This thesis presents a high resolution, discrete event driven combat simulation. This 
model was developed to facilitate the analysis of tactical options available to a small unit 
(company platoon) commander using artillery and multiple lanes in overcoming a 
minefield obstacle. 

KHAFJI is a high fidelity combat simulation written in SIMSCRIPT II.5 with 
SIMGRAPHICS I. Employing user input parameters which define a minefield scenario, 
the model generates output which enables the user to compare various tactical options 
available to a maneuver commander in crossing a minefield. By using menu driven input 
screens, the user has a choice of multiple crossing lanes, size of crossing force, distrib- 
ution of forces upon crossing lanes, multiple mine belts, and use of indirect fires against 
the minefield. 

Using SIMGRAPHICS I software, KHAFJI displavs the minefield and the unit as 
it crosses the minefield. KHIAFJI depicts each mine, each member of the crossing unit, 
and each impacting artillery round. The graphics provided by KHAFJI allows the user 
to see the crossing as it unfolds, thereby, reinforcing user confidence in the resultant 
data. When running multiple replications, graphics can be turned off to speed process- 
ing. 

An example of the type of analysis that can be performed with KHAFYJI 1s presented 
imeehnapter 1V, 


THESIS DISCLAIVIER 


The reader is cautioned that computer programs developed in this research inay not 
have been exercised for all cases of interest. While every effort has been made, within 
the time available, to ensure that the programs are free of computational and logic er- 
rors, they cannot be considered validated. Any application of these programs without 


additional verification is at the risk of the user. 
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lI. INTRODUCTION 


A. HISTORICAL PROSPECTIVE 

It was a hot, dry. listless day of October, 1942. In a remote command post in a 
desolate Egvptian desert strutted an exuberant, jubilantly confident commander. 
Throughout the previous season, he had been defeated, his forces demoralized. his na- 
tion humiliated. Now his time had come. This time he would win. His forces outnum- 
bered his opponent's forces by over 3 to 1 in tanks and artillery. [is force was well 
armed, well trained, and well rested. He was on the offensive, he had the initiative, he 
could not be stopped, and he knew it. Therefore, he decided to sleep through the initial 
phases of the battle. [Ref. 1] 

In another command post sat a frustrated, disappointed, and dejected commander. 
His forte up to this point had been lightening maneuver but now he was outnumbered 
3 to I in tanks and artillery, his anumunition was nearly depleted, his petrol was spent, 
and his supply lines were shattered. He had lost the initiative. He was about to be at- 
tacked, he was about to be defeated, and he knew it. But he also knew that he must act 
to save his force from annihilation. His name was Erwin Rommel, his nemesis was 
Bernard Montgomery. [Ref. 2] 

Rommel’s decision was to lay 500,000 landmines. His force, badly mauled, survived 
to fight on. {Ref. 3] 

Forty years later in October 1991, in an Arabian desert, sat a commander who had 
taken the first step in restoring the prestige of his nation. Some years earlier a sovereign 
state had been carved out of the southeastern province of his nation. He had erased the 
humiliation by restoring his God given frontier. Now his enemies had gathered a mighty 
coalition force against him. He was about to be attacked and he knew it. But he had to 
act to save his forces from the impending coalition onslaught. His name was Sadam 
Hussein. His decision was to lay 1,000,000 landmines on the Saudi Arabian-Kuwait 


frontier. 


B. PROBLEM 

The Iraqi defensive barrier facing Desert Storm forces was formidable. The obstacle 
network consisted of three densely laid mine belts (approximately 100 meters in depth), 
reinforced by oil filled tank ditch networks (approximatelv 50 meters in depth). The 


defensive scenario envisioned that as a force penetrated the first mine belt, the force then 


must negotiate a flaming tank ditch network (oil set ablaze). Once across this tank ditch 
network, the cvcle must be repeated twice more before the attacking unit could clear the 
obstacle. In addition to the mine’tank ditch obstacles, the entire defensive network was 
to be covered by enemy covering fires. (See Figure | on page 3).[Ref. 4] 

This defensive barrier presented an acute problem for Desert Storm operational 
planners. This thesis concerns the minefield aspect of this problem. 

Landmines are effective counter-mobility weapons--they slow or halt armored col- 
umns, they cause casualties, and they are cheap. Today, with the advent of anti-shock, 
non--metallic, anti-armor, anti-disturbance landmines, mine warfare has become a po- 
tentially devastating combat multiplier. While mine warlare has enjoyed these techno- 
logical advances, counter-mine warfare has lagged behind. Since WWII, the U.S. Army’s 
only deployed technological solution to this problem has been detonating line charges, 
whose effectiveness against anti-shock landmines is suspect [Ref. 5]. 

In the absence of mine defeating technologies, tactics must be employed to over- 
come the existing mine/counter-mine warfare technological gap. This presents a ques- 


tion: What is the “best” tactic for moving through a minefield? 


C. PURPOSE 

The purpose of this thesis is develop a high resolution simulation to analyze tactics 
which use artillery and multiple lanes in breaching a minefield. Specifically, this thesis 
develops KHAFJI, a high resolution combat simulation, and then illustrates the type 


of analvsis possible through an example of the model’s use. 


D. KHAFJI 

KHAFSJI, employing user input parameters that define the minefield, the unit 
crossing the minefield, and the unit’s tactical deployment, generates output which ena- 
bles the user to compare various tactical options available to a maneuver commander in 
crossing the minefield. KHAFJI is a high resolution combat simulation written in 
SIMSCRIPT II.5 with SIMGRAPHICS I (detailed in Chapter III). By use of menu 
driven input screens, KHAFJI allows the user to quickly and easily define minefield 
scenarios. The user has a choice of multiple crossing lanes, size of crossing force, dis- 
tribution of forces upon crossing lanes, multiple mine belts, and use of indirect fires 
against the minefield. 

KHAFJI maintains a complete audit trail of significant events affecting the crossing 
unit. KHAFJI records the location of each mine, destruction of any mine by artillery, 


encounter of a mine by a member of the crossing unit, disablement of any member of 
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Figure [. —Jraqi Defensive Barrier 


the crossing unit by any means, final status of each member of the crossing unit, total 
rounds of artillery fired, total number of unit members successfully transiting the 
nunefield, and clapsed battle time (unit crossing time) (see Appendix C, Sample Output). 
The data collected by KHAFJI can be used to analyze the relative effectiveness of 
various tactical options, for example are there nore crossing unit members surviving the 
minefield using three crossing lanes with 80 rounds of artillery per lane than are unit 
members surviving using one lane to cross the nunefield with no artillery support? 
1. Graphics 
A significant effort was expended in development of detailed graphics which 
display results as they occur during the simulation. 
Using SIMGRAPIHIICS f software, KITAFJI displays the minefield and the unit 
as it, crosses the minefield. KITAFJI depicts each mine, each member of the crossing unit 


(animated as they cross the minefteld), and each impacting artillery round. The graphics 


provided by KIIAFJI allows the user to see the crossing as it unfolds, thereby, rein- 


forcing user confidence in the resultant data. (see Figure 2 on page 4). 
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Figure 2. KHAFJI Display 


2. Collaboration 
KITAFJI was developed in association with Anderson, [Ref. 6]. The two simu- 
lations were developed sharing basic constructs for movement algorithms, to include 
detailed bypass algorithms. The simulations differ in that Anderson's thesis concentrates 
on modeling the tactics of using mine plows to clear minefields. This thesis models the 
tactics of using artillery fires to clear a minefield. Clearly, a useful follow on effort would 


combine the two models. 


If. BACKGROUND 


A. CURRENT COMBAT MODELS 
Many combat models exist which contain minefield algorithms in the form of time 


delavs or rolled-up casualty assessments such as: 


JANUS - An interactive, stochastic, event driven, battalion’ brigade model with in- 
dividual element level resolution. 


CASTFOREM - A stochastic, event driven, battalion; brigade model with individual 
element level resolution. 


VAG - A deterministic, time step division level model with battalion level resol- 
ution. 

Hlowever, these models are expensive and time consuming to maintain; require a 
degree of expertise to operate; and due to their complexity, sensitivity analysis of 
munefield specific concerns is difficult if not impossible to conduct. Furthermore, the 
above simulations do not model minefield effects at a sufficient level of resolution needed 
to investigate minefield breaching techniques. Therefore a high resolution model de- 


signed to address minefield specific concerns (KHAFJI) was required. 


B. CURRENT DOCTRINE 

Current U.S. Army doctrine, Airland Battle-Future, is offensive in nature and de- 
pendent upon maneuver. “Divisions will remain dispersed, preparing for battle...at the 
appropriate time, divisions will be committed and will maneuver to engage and defeat 
enemy forces...Emphasizing the importance of maneuver, we seek to avoid head-to-head 
attrition warfare....” Freedom of maneuver and maintenance of mobility is paramount. 
Therefore, obstacles, especially minefields, create an impediment to successful execution 
of AirLand Battle-Future. [Ref. 7] 


C. TACTICAL OPTIONS 

The unit of a maneuver force that would actually encounter and subsequently 
breach a minefield would be a company or platoon sized element ( 3 to 21 vehicles). 
Upon encountering a minefield obstacle, the maneuvering unit commander has four 
basic options available: bypass the minefield; plan, organize, and coordinate a deliberate 


breach; hastily breech the minefield; or force through the minefield. [Ref. 8] 


i. Bypass 
If possible, the maneuver conimander should bypass any minefields encount- 
ered, reporting the minefield’s location and maintaining the initiative. Lfowever this is 
freauiently not a likely choice. 
2. Forcing Through 
Forcing-through the minefield (bulling through--simply driving through the 
minefield without any special preparations) is executed only when no other options exist. 
Any commander choosing this option would expect heavy casualties. 
3. Deliberate Breach 
A deliberate breach is conducted bv engineer assets and adversely affects ma- 
neuver in terms of time and effort. To breach a minefield, a maneuver unit must: 
e Suppress enemy weapons 
e Obscure the enemy’s observation 


e Secure the far side of the minefield 


e Reduce the minefield by clearing a path through. 


4. Hasty Breach 
A hasty breach (breaching the minefield quickly with little preparation) is ac- 
complished with the unit commander’s own assets, man-portable mine detectors, per- 


sonnel, and indirect fire support. 


D. MODEL DESIGN 
i. Tactical Considerations 

While traversing a minefield, the breaching unit is vulnerable to landmines and 
enemy covering fires. The faster the unit moves across the minefield, the less vulnerable 
the unit is to attrition by enemy covering fire (less exposure time), however, the unit's 
vulnerability to landmines is increased due to less time available to clear or avoid the 
mines. This produces a trade-off in speed to decrease enemy covering fire inflicted casu- 
alties versus increased landmine inflicted casualties. 

The addition of indirect fires further complicates the tactical situation. Theore- 
tically, using artillery fires against the minefield should help the crossing unit by reducing 
the density of the minefield thereby decreasing the frequency of mine encounter, how- 
ever, damage of the terrain by indirect fires (cratering) will probably impede the unit’s 
speed thereby increasing the unit’s vulnerability to covering fires (increased exposure 


time). 


The use of multiple lanes has the promise of decreasing the unit’s crossing ume. 
With the benefit of two or more lanes to cross the minefield, the unit should adopt 
shorter march columns, crossing simultaneously, thus realizing significantly shorter 
crossing tumes. The decrease in crossing ume should decrease the unit's vulnerability to 
covering fires, however, the use of multiple lanes causes the unit to adopt a mulu- 
vehicular front while crossing the minefield instead of the standard single vehicle front. 
This tactical posture increases the hkelihood and rate of mine encounter, especially when 
bypassing a disabled vehicle (see Figure 3 on page 8). 

Bypassing a disabled vehicle further complicates the scenario. If a vehicle be- 
comes disabled, follow on vehicles must go around. This maneuver increases crossing 
time (each vehicle in column must use somie lateral movement to bypass the disabled 
vehicle) and increases likelihood of mine encounter (vehicles must now traverse more of 
the breath and uepth of minefield).. 

2. Nature of KHAFJI 

KHAFJI successfully models the tactical considerations detailed above to eval- 
uate the hasty breach and force-through options. 

KHAFJI allows the analyst to use combinations of indirect fire support and 
multiple lanes among many other user defined parameters (detailed in Chapter III ) to 
determine the most efficient tactical option in terms of friendly survivors and time to 
cross minefield. KHAFJI helps answer the following questions: 

e Should the unit commander simply force through the minefield? 
e¢ Is indirect fire support effective in reducing the minefield? 
¢ Should the force use two or more lanes in the breaching the minefield? 


¢ Is a combination of these options more effective due to synergism? 


A high resolution model is needed to provide data at this level of detail. 
KHAFJI models a company-team, platoon sized armored force attacking through an 
enemy minefield. The minefield is covered by hostile direct fires. The attacking force 1s 
attrited by enemy direct fire, and landmines. The enemy force is plaved notonally, 
therefore, the enemy force is not attrited. The attacking force must use tactics as op- 
posed to technology to overcome the obstacle. The friendly tactical arsenal includes the 
use of artillery against the minefield, a choice of multiple breaching lanes, and distrib- 


ution of forces on the lane or lanes chosen. 
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Hl, METHODOLOGY 


MAPA EIJI 4s 2 high resolition combat simulation written in SIM[SCRIPT 11.5, with 
SIMGRAPHICS (graphics can be turned off if desired). The simulation is constructed 
around three permanent and two temporary entities. Permanent entities are 
SIMSCRIPT constructs used to represent passive elements in a simulation model. Per- 
manent entities in KHAFJI are mine belts, lanes, and indirect fire weapons. Temporary 
entities are SIMSCRIPT constructs used to model objects which have a limited life in a 
simulation or vary in number during the simulation. Temporary entities in KHAFJI are 
mines and vehicles or combat elements. [Ref. 9] 

Algorithm development followed a four phased approach: 

e Build the Data Base 
e Create the Minefield 
e Fire Indirect Fire Weapons 


e Move Through the Minefield. 


A. BUILD THE DATA BASE 
Data needed for each run is entered by the user through a series of menu driven 
screens. 
I. Genera! Data 
This screen allows the user to design the minefield scenario. The user designates 
location, width, and length of the minefield, number of mine belts located within the 
minefield, number of lanes to use for the crossing, size of the breaching force, and the 
number of indirect fire weapons available (total of blue and red weapons) (see Table 2 
on page I1). 
a. Vehicle Dimensions 
This screen allows the user to describe the breaching element. The user 
designates the breaching element’s length, width, and speed among other parameters. 
The types of vehicles or breachers possible are limited only by the imagination of the 
user. Breacher types are currently homogeneous throughout the breaching force (see 


Table 3 on page 12). 


2. Probability of Kill For Mines 
This screen allows the user to assign probabilities of kill for mines (P,mine) against the 
three breacher types designated in Vehicle Dimensions above (see Table | on page 10). 
a. Aline Belt Data 
This screen allows the user to tailor each mine belt to his specific scenario. 
The user defines the length and depth of the mine belt, along with the number of mines 
and type of mine located within the mine belt. Though mine type is homogeneous 
within mine belts, the user can establish a mixture of mine types within any belt by 
overlaying mine belt locations (see Table 4 on page 12). 
3. Weapons Data 
This screen allows the user to define each indirect fire weapon. The user estab- 
lishes the weapon's unit, type, lethal radius, impact errors (northing and easting), and 
the number of vollevs to fire. All weapons are modeled with a circular destructive region. 
(see Tables omeragerls). 
4. Lane Data 
This screen allows the user to designate a starting point (lane entry point) and 
to distribute the crossing forces on selected lanes. Total forces distributed on the lanes 
must equal number of elements designated in General Data above (see Table 6 on page 
13); 
5. Iterative Control 
This screen allows up to 1,000 iterations, each iteration containing identical 
“start-up data as outlined above. If using more than four volleys of artillery per lane, 
graphics must be turned off depending upon storage capacity of host personal computer 


(see Table 7 on page 14). 
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B. CREATE THE MINEFIELD 
Each mine is positioned to a tenth of a meter within a specified mine belt using a 


two-dimensional cartesian coordinate system, (x,y), which represents easting and north- 
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homogeneity of mine placement throughout the width and depth of the minefield, while 
avoiding overlapping of mine locations, the distribution of mine placement is modeled 
as bivariate normal. This formulation provides a realistic mine location error around a 
central point determined for each individual mine i.e., (X,Y) ~ BV N(u,, uy, o,, 9,) (see 
Figure 4 on page 15). Mine types (i.e., 1-pressure, 2-magnetic, and 3-contact) are ho- 


mogeneous within each belt. 


Table 3.. INEURSCREEN= 


ea a ee 

“ =e a 
a 
Cae a 


KILL RATE 
STANDARD 
DEVIATION 


METERS 
SPEED O.1 - 500 — PER MIN 






















VET LGIe 
DIMEN- 
STOINS 





Table 4. INPUT SCREEN 4 


LNEUTS RANGE DEFAULT REMAR ES 


METERS 
ae 0 - 2000 INTO Sees 
FIELD 
TENG TaIOE 
ENE BELE | 1-20 aa 
# MINES IN 
SILA 


Mine location easting is determined by computing uniform intervals across the 
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width of the minefield, then determining a standard deviation and mean for each interval. 
(1) Interval . The interval computation segments the minefield width 


into a discrete number of cells where: 
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(2) Mean. The mean computation defines the center of each individual 


cell as the distributional mean where: 
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See Figure 4 on page 15. 
(3) Standard Deviation. The standard deviation computation prevents 
overlapping of eastings by restricting each cell distribution within its target cell. The 
standard deviation is approximated by the interval length divided by six since 99% of the 


area under a normal curve is + 3 standard deviations from the mean. 


Se ER VAL 
The easting, x, is then computed by sampling from a normal distrib- 
uuon, X~ N(u,,¢,). 
2. Northing 
Mine location northing is determined by random sampling from a normal dis- 
tribution using user provided northing of the mine belt as a mean and user input mine 


belt length divided by six as the standard deviation, Y ~ N(u,o,) , where: 


uy = MINE BELT NORTHING 


_ MUENE BELT LENG 
d,= a nr 


This standard deviation computation, along with designating the mine belt 
northing as the center of the mine belt allows mine northings to be normally distributed 


throughout the length of the mine belt. 
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Figure 4. Mline Placement 


C. INDIRECT FIRE WEAPONS 

Indirect fire weapons are modeled as cookie cutter weapons, [Ref. 10], 1-¢, firing er- 
rors are circular normal and lethal radius 1s a constant (user provided). Currently artil- 
lery fires are used against the minefield only. 

1. Targeting 

The key concern of artillery targeting is target coverage. For the targeting of a 

lane through a minefield, a methodology which ensures coverage of the entire length of 
the minefield is required (crossing unit does not know location of mine belt). Therefore, 
a methodology based on the minefield length and the lethal radius of the particular 
weapon firing was chosen. This methodology provides consistent and homogencous 
coverage of the minefield regardless of the type of weapon firing. Therefore, the number 
and location of indirect fire weapon aimpoints are determined internally as functions of 


the minefield lane entry point, the user provided distance the crossing unit intends to 


travel, and the lethal radius of each indirect fire weapon as follows (see Figure 5 on page 
17): 


See (DISTRI) 
oe ae. Cag Ub. DuLS) 


AIMPOINT NORTHING =( x 2—1)x LETHAL RADIUS, where 1 = 1,..., 2 IMIR @R ee 


AIMPOINT EASTING = CANE ENTRY EASTING 


ECAR LE: 

DISTANCE TO TRAVEL = 100 

LETHAL RADIUS = 10 

LANE ENTRANCE = 5610 7800 (eight place grid coordinate, where 5610 is 
the easting, and 7800 is the northing. The Iast digit in easting and 


northing represents tens of meters.) 
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AIMPOINTS: 

5610 7801 

S610 7803 

5610 7805 

5610 7807 

5610 7809. 

2. Impact locations 

Keeping with the generally accepted convention that artillery impacts are 
normally distributed, impact locations are modeled as bivariate normal, using almpoint 


ordinates as means and the weapon's impact errors as standard deviations. [Ref. 10]. 


[IMPACT EASTING ~ MAIMPOINT EASTING, ERROR IN EASTING) 
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Figure 5. Indirect Fire Aimpoints 


3. Battle Damage Assessment 
The distance from munition impact to target is determined by geometry Le., 
DISTANCE = {+ ¥°, where X = MISS DIST IN EASTING and Y = MISS DIST 
[IN NORTHING. | 
Destruction of a mine by indirect fire is achieved if mine 1s located within the 
weapon's lethal radius (see Figure 6 on page 18). 
4. Terrain 
To model the effects of indirect fire damage to the terrain, the velocity of each 
breacher traversing the minefield is degraded by a user input percentage for volleys to 


be fired into the minefield. For example using a 5% default we have: 


INITIAL VELOCITY = 85 METERS PER MINUTE 
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Figure 6. Battle Assessment 


VOD EES Yo DEGRADATION OF VELOCITY RESULTANT VER@@iigx 
0 0% 85 
l 5% 80.75 
2 10% 76.5 
3 15% las 
4 20% 68. 


This degradation is a one time computation computed during the initialization 


phase of the simulation. The number of vollevs to fire is a user input. 


D. MOVEMENT 

To approximate reality as closely as time and other resource permit, KHAFJI's 
movement algorithms model the actions of individual vehicles crossing the minefield. 
The vehicles are modeled in column formation with one vehicle following the coluimn’s 
lead vehicle along predetermined lanes. Within each lane, each vehicle is further given a 


computed path to follow. Each individual path is uniquely determined by random 


normal sampling along a central axis bisecting the lane(s) through the nunefield. This 
methodology is intended to model the variations in paths realized with one vehicle at- 
tempting to follow another (driving errors) (see Figure 7 on page 20). 

As discussed in Chapter II (paragraph D.1., Tactical Considerations), if a vehicle is 
disabled, following vehicles must bypass the disabled vehicle. KILTATJI using constructs 
developed by Anderson, [Ref. 6], models vehicles as circular objects. In bypassing a dis- 
abled vehicle, KIIAFJI computes the area of the disabled vehicle, then determines a 
peripheral path (tangent to circle representing disabled vehicle) around the disabled ve- 
hicle (see Figure 8 on page 2] and Appendix D, paragraph T, Bypass). 

Breaching elements will be in one of the four following states while negotiating the 
minefield (movement algorithm developed with Anderson), [Ref. 6]: 

e Enter the Minefield 
e Encounter Mine 

e Kill 

e Exit Minefield. 


1. Enter Minefield 

Modeling direct fire casualties presented somewhat of a dilemma. The methods 
available were reduced to two options: determine direct fire casualties as a result of in- 
dividual direct fire engagements or determine direct fire casualties by use of Lanchester 
kill rate coefficients. Due to resource constraints the Lanchester option was selected. 

All breachers will enter the minefield. Upon entering the minefield, each 
breacher is given a “time to death”, a time in which the breacher will be rendered a direct 
fire casualty if he has not exited the minefield. This death time is modeled as normally 
distributed with a mean death time equal to the inverse of the rate at which red kills blue 
l.e.,red kill rate (RKR). To lend variation to the death times, a death time standard de- 
viation was developed (o,,). No historical data were available to gauge the dispersion 
of direct fire casualty times realized by a unit crossing a minefield, therefore, o,; 1S a user 
input parameter. A default value equal to the inverse of RKR divided by three 1s pro- 
vided. This default value provides a normal curve, distributed over an interval from zero 


to twice the mean value. 
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Figure 7. Minefield Path with Driving Errors 
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Individual element death times are determined by random sampling from the 
above normal distribution. 


2. Encounter Mine 


Once a mine is encountered by a breacher, element kill is determined by 
Monte-Carlo, Uniform (0,1) random sampling against the user input mine P, . Whether 


or not a breacher ts killed, the encountered mine is rendered inactive. 
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Figure 8. Bypass Geometry 


3. Kill 
A breacher enters a state of kill by mine encounter or enemy direct fire--tune in 
minefield exceeds death time. 
4. Exit Minefield 
If the breaching element negotiates the minefield within its “death time”, it suc- 
cessfully exits the minefteld. The simulation terminates when all breachers have either 


successfully transited the minefield or have become casualties. 


IV. ANALYSIS 


A. EXAMPLE ANALYSIS 

The intent of this chapter is to provide an example of the kind of analysis that can 
be accomplished with KHAFJI. This example analyzes the effectiveness of using multi- 
ple lanes and field artillery fires to support a unit crossing a minefield obstacle. 

For a unit crossing a minefield the most important aspects are crossing the minefield 
with minimal casualties and crossing the minefield in the shortest length of time. Thus 
time factor is important because an attacking unit cannot afford to loose its offensive 
momentuin. Furthermore, the longer a unit stays in a minefield the greater the likeli- 
hood of its members becoming casualties. 

KHAFSJI output includes such measures of effectiveness (MOEs) as SURVIVORS 
(total unit members successfully exiting the minefield) and BATTLE TIME (unit’s 
elapsed crossing time). Additionally, a complete audit trail of significant events 1s pro- 
vided (see Appendix C, Sample Output). These MOEs and accompanying data will be 
used to evaluate several tactical options. Additionally, sensitivity analysis will be con- 


ducted on the volume of artillery fired into the minefield. 


B. SETTING 
Data were collected from KHAFJI runs to evaluate the MOEs of SURVIVORS and 
BATTLE TIME, in scenarios involving multiple lanes without friendly artillery fire 
support and with varying levels of friendly artillery. 
1. Scenarios 
Five replications of each of fifteen scenarios were conducted as follows: 
e | Lane Without Artillery Support 
e 2 Lanes Without Artillery Support 
e 3 Lanes Without Artillery Support 
e 1 Lane With Artillery Support (20,40,60,80 ROUNDS PER LANE) 
e 2 Lanes With Artillery Support i 
e 3 Lanes With Artillery Support 


See Tavle ss Om pave-2). 
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2. Run Parameters 
¢ Sample Size = 5 
e Minefield Density = 0.25 mines per meter 
e P, mine = 1.0 
e # rounds = QO, 20, 40, 60, 80 per lane 
e #breachers = 7 (total number of breachers distributed on lanes) 
e Distance to travel = 100 meters 
¢ Speed = 85 meters per minute 


e Mean Death Time = 33 minutes. 


C. DATA ANALYSIS 

The data were analyzed using analysis of variance (ANOVA) for parametric analysis 
and Kruskal-Wallis non-parametric test for equal location parameters. 

Analysis is further supported by Bartlett’s test of homogeneity of variance. Bartlett's 
test tests homogeneity of variances of populations assumed to be normally distributed 
(test statistic is a ratio of the weighted geometric mean of the variances to the weighted 
arithmetic mean of the variances, where weights are relative degrees of freedom). A 
significant p-value indicates either non-normality or inequality of distribution variances 
(see Appendix A, Data Analysis). [Ref. 11] 

The data is also analyzed graphically using box plots and bar graphs. A box plot 
is Aa compact graphical method of displaying data distributions. The box covers the dis- 
tributions interquartile range, observation falling within the 25” to 75" quartiles, with 
extending limbs depict observations occurring outside the interquartile range. The length 
of the box gives a relative measure (in comparison to companion plots) of distributional 


Variance (see Figure 9 on page 26). 


For MOE, SURVIVORS, for each of the lane options (1 lane, 2 lanes, 3 lanes)miee 
null hypothesis tested is: all run means are equal versus the alternate hypothesis that 
inean number of survivors with indirect fire support are greater than mean number of ~ 


Survivors Without indirect fire support: 
Ho: Uo = 29 = Hag = B69 = H80, where 0,20,30,60,80 indicate rounds of artillery per lane. 


[l,, At least two run means differ. 


A significance level of a = 0.05 was used. 

For MOE, BATTLE TIME, for each of the lane options (1 lane, 2 lanes, 3 lanes) 
the null hypothesis tested is all run means are equal versus the alternate hypothesis that 
mean battle time with indirect fire support is less than mean battle time without indirect 


fire support: 
Ho? Bo = Ly = Hao = Heo = go, where 0,20,40,60,80 indicate rounds of artillery per lane. 
H,: At least two run means differ. 


A significance level of « = 0.05 was used. 


D. RESULTS 
To confirm data suitability for parametric analysis of variance the Bartlett test for 
homogeneity of variance, using a significance level of « = 0.05 , was utilized. 
I. Survivors 
a. I Lane 
The Bartlett test vields a significance level of 0.04, therefore we conclude the 
data to be suitable for parametric ANOVA. Testing the null hypothesis that the five run 
distributions of survivors ( I lane with 0, 20, 40, 60, and 80 rounds of artillery) are 
equally distributed versus the alternate hypothesis that at least two distributions differ, 
yields levels of significance of 0.36 and 0.20 for parametric and non-parametric ANOVA, 
respectively, therefore we fail to reject the null hypothesis at « = .05 level of significance. 
We conclude that with the single lane option there is no significant difference in mean 
survivors (see Appendix A, paragraph A.1). 
b. 2 Lanes 
The Bartlett test yields a significance level of 0.49, therefore we conclude the 
data to be unsuitable for parametric ANOVA. Using Kruskal-Wallis only to test the 
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null hvpothesis that the five run distributions of survivors ( 2 lanes with 0, 20. 40, 60, 
and 80 rounds of artillery per lane) are equally distributed versus the alternate hypothesis 
that at least two distributions differ, vields a sigmiicance level of 0.0009, eieiore Wwe 
reject the null hypothesis in favor of the alternate hypothesis at « = .05 level of signif- 
icance, We conclude that with the two lane option the number of survivors significantly 
increase as the level of artillery support per lane increases. (see Appendix A, paragraph 


SeAy 


c. 3 Lanes 

The Bartlett test vields a significance level of 0.74, therefore we conclude the 
data to be unsuitable for parametric ANOVA. Using Kruskal-Wallis only to test the 
null hypothesis that the five run distributions of survivors ( 3 lanes with 0, 20, 40, 60, 
and 80 rounds of artillery per lane) are equally distributed versus the alternate hypothesis 
that at least two distributions differ, yields a significance level of 0.0009, therefore we 
reject the null hypothesis in favor of the alternate hypothesis at a = .05 level of signif- 
icance. We conclude that with the three lane option the number of survivors significantly 
increase as the level of artillery support per lane increases (see Appendix A, paragraph 
32): 

d. Conclusions 

From parametric and non-parametric analysis we conclude that for two and 
three lane options, the number of survivors increase as the level of artillery support per 
lane increases. There is no significant difference in survivors within the one lane option. 

From Figure 10 on page 27, which depicts mean SURVIVORS as a func- 
tion of rounds of artillery fired per lane and number of lane(s) used, we see that for the 
single lane option, casualties are basically uniform across all levels of artillery support. 
For two and three lane options (see Figure 10 on page 27) we see a significant increase 
in mean SURVIVORS from 0 to 40 rounds of artillery per lane, leveling at 40 and 60 
rounds, finally peaking at 80 rounds per lane. We further note that there is no significant 
difference in mean SURVIVORS between the two and three lane options. 

Box plots presented (see Figure 9 on page 26 and Appendix A) further 
Support the above conclusions. 

A review of the run data (see Appendix B) reveals that segregating casual- 
ties into two groups, kills by mine and kills by direct fire, indicates another trend. Within 
single lane options, casualties are predominantly split evenly between mine and direct 


fire. However, within multiple lane cases, casualties are predominately mine kills. This 
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Figure 9. Box Plot-SURVIVORS-3 Lanes 
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Figure 10. MOE-SURVIVORS 


phenomenon suggests that factors within multiple lane cases lessen the effectiveness of 
direct fire while enhancing the opportunity for mine engagement (this trend is likely 
driven by the fact that P,ymine = 1.0). These factors are determined to be battle time 
(less time to employ direct fire) and order of march, becoming the lead vehicle (first to 
encounter the nunebelt). [This trend holds across all treatments with or without artillery 
support. | 
2. Battle Time 
a. I Lane 
The Bartlett test yields a significance level of 0.04, therefore we conclude the 
data to be suitable for parametric ANOVA. Testing the null hypothesis that the five run 
distributions of survivors (1 lane with 0, 20, 40, 60, and 80 rounds of artillery) are equally 
distributed versus the alternate hypothesis that at least two distributions differ, yields 
levels of significance of 0.0000004 and 0.01 for parametric and non-parainetric ANOVA 
respectively, therefore, we reject the null hypothesis in favor of the alternate hypothesis 
at « = .05 level of significance. We conclude that with the single lane option the mean 
battle time significantly increases as the level of artillery support per lane increases (see 
Appendix A, paragraph B.1.). 
b. 2 Lanes 
The Bartlett test yields a significance level of 0.01, therefore we conclude the 
data to be suitable for parametric ANOVA. Testing the null hypothesis that the five run 
distributions of survivors (2 lanes with 0, 20, 40, 60, and 80 rounds of artillery per lane 
per lane) are equally distributed versus the alternate hypothesis that at least two dis- 
tributions differ, yields levels of significance of 0.000000002 and 0.0002 for parametric 
and non-parametric ANOVA respectively, therefore, we reject the null hypothesis in 
favor of the alternate hypothesis at « =.05 level of significance. We conclude that with 
the two lane option the mean battle time significantly increases as the level of artillery 
support per lane increases (see Appendix A, paragraph B.2.). 
c. 3 Lanes 
The Bartlett test yields a significance level of 0.00002, therefore we conclude 
the data to be suitable for parametric ANOVA. Testing the null hypothesis that the five 
run distributions of survivors (3 lanes with 0, 20, 40, 60, and 80 rounds of artillery per 
lane) are equally distributed versus the alternate hypothesis that at least two distrib- 
utions differ, yields levels of significance of 0.00000009 and 0.0003 for parametric and 
non-parametric ANOVA respectively, therefore, we reject the null hypothesis in favor 


of the alternate hypothesis at « = .05 level of significance. We conclude that with the 


28 


three lane option the mean battle ume significantly increases as the level of artillery 
support per lane increases (see Appendix A, paragraph B.3.). 
d. Conclusions 

[from parametric and non-parametric analvsis we conclude that across all 
lane Options BA TILE TIME increases as the level of artillery support per lane increases. 

Viewing Figure |) on pace 30, whieh depicts mean BATILE TINIE asa 
function of rounds of artillery fired per lane and number of lune(s) used, we see that 
mean BATTLE TIME significantly increases as the level of artillery support increases 
(speed is impeded due to terrain damage caused by impacting artillery--speed degrada- 
tion factor discussed in Chapter II1), and that mean BATTLE TIME decreases as the 
number of lanes used increase (breachers, in separate columns are able to cross simul- 
taneously. Furthermore, viewing Figure 12 on page 31, we see that with the 3 lane op- 
tion, using 80 rounds of artillery per lane, there 1s little or no variation in mean battle 
time. 

Box plots presented (see Figure 12 on page 31 and Appendix A) further 
support the above conclusions. 


E. COMPARISON OF OPTIONS 

The “best” option under the given scenario is the option which yields maximum 
SURVIVORS at the mintmum BATTLE TIME (see Table 9 on page 32). 

In terms of SURVIVORS, KHAFSI yields a tie between two and three lanes, with 
80 rounds per lane, there is no statistical difference between 6.4 and 6.2 (respective 


standard deviations yield overlapping 95% confidence intervals 1.e., X, + 1.960). Using 
BATTLE TIME as a final determinant, the best option is to cross with three lanes, using 
80 rounds of artillery per lane (240 rounds total). This option allows maximum survivors 
in a minimum of crossing time. If conservation of artillery ammunition is more critical 
than time, then two lanes with 80 rounds of artillery per lane (160 rounds total) should 


be utilized. 


F. OBSERVATIONS 


e The use of multiple lanes when crossing a minefield obstacle decreases the crossing 
time of the unit, decreasing the unit’s exposure time, thereby decreasing the fre- 
quency of attrition by direct fire. However, the use of multiple lanes increases the 
frequency of mine encounter. 


e The use of artillery against the minefield in levels of 40 to 80 rounds per lane was 
significant in reducing the density of the minefield. However, use of artillery does 
significantly increase minefield transit time (it should be noted that this effect 1s 
sensitive to the user provided speed degradation factor). 


MOE BATTLE TIME 
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Figure 11. MOE-BATTLE TIME 
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Figure 12. Box Plot-BATTLE TIME-3 Lanes 
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Table 9. MIEAN MOE DATA 
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G. CAUTIONS 


The analysis conducted is presented only as an example of the type of analysis pos- 










sible with KHAFJI. The input parameters for the analysis were chosen arbitrarily and 
should not be taken as valid data. Using valid values for such parameters as mine /,, 
movement degradation factor, and red kill rates may significantly change the outcome 


of the analysis. 
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V. CONCLUSIONS 


A. SUMMARY 

This thesis presented KHAFSI, a high resolution simulation which models minefield 
breaching tactics. As an example of the tvpe of analysis that can be perforined using 
KHAFSI, the use of artillery and/or multiple lanes in breaching a minefield was ana- 
lyzed. 

KHAFSI is a high fidelity combat simulation written in SIMSCRIPT II.5 with 
SIMGRAPHICS I. Employing user input parameters which define a minefield scenario, 
the model generates output which enables the user to compare various tactical options 
available to a maneuver commander in crossing a minefield. By using menu driven input 
screens, the user has a choice of multiple crossing lanes, size of crossing force, distrib- 
ution of forces upon crossing lanes, inultiple mine belts, and use of indirect fires against 
the minefield. 

KHAFJI maintains a complete audit trail of significant events affecting the crossing 
unit. The model records the location of each mine, destruction of any mine by artillery, 
encounter of a mine by a member of the crossing unit, disablement of any member of 
the crossing unit by any means, final status of each member of the crossing unit, total 
rounds of artillery fired, total number of unit members successfully transiting the 
minefield, and unit crossing time. 

Using SIMGRAPHICS I software, KHAFJI displays the minefield and the unit as 
it crosses the minefield. KHAFJI depicts each mine, each member of the crossing unit, 
and each impacting artillery round. The graphics provided by KHAFSI allows the user 
to see the crossing as it unfolds, thereby, reinforcing user confidence in the resultant 
data. When running multiple replications, graphics can be turned off to speed process- 
ing. 

KHAFJI has been tested on desktop 286 and 386, and IBM 3033 (main frame) 
computers. The model is transportable (a feature of SEMSCRIPT) and 1s flexible in al- 
lowing a wide range of input parameters, which enable analysts to tailor scenarios to suit 


their needs. 


B. POTENTIAL USES 
KHAFSI can provide insights into fundamental questions involving minefield tactics 


such as: given competing tactical options in crossing a minefield, which options yield 
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maximum survivors; which options vield minimum crossing time; are multuple lanes 
andor artillery useful in crossing a minefield; given a proposed anti-mine munition, 1s 
it effective in reducing the lethality of the minefield; given competing friendly defensive 
options, which options are most effective in terms of enemy casualties and maximum 


time for enemy to Orcach themmmeircn, 


C. RECOMMENDATIONS 

KHAFJI’s modular engineering facilitates modifications. The addition of varying 
tvpes of land mines is recommended. Currently only pressure mines are actually modeled 
within the mine encounter algorithms. Magnetic, contact, WAM and anti-personnel 
landmines should be added. 

Additionally, a sophisticated direct fire algorithm is needed to further analyze the 
effects of direct fire on multiple lane options. A terrain model should be incorporated 
to better model the effects of artillery fires on terrain trafficability (affects mobility). 
Red artillery fires, algorithms currently contained within the model, should be “worked” 
into a battle scenario. A counter-battery algorithm should be developed to fight a “total 
battle.” 

fost importantly, KHAFJI should be merged with the model created by Anderson 
[Ref. 6]. This will allow the user to analyze minefield breaching tactics which include use 


of artillery, multiple lanes, and vehicular mounted mine plows. 
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APPENDIX A. DATA ANALYSIS 


A. MOE-SURVIVORS 
I Lane: 


Empirical Comparison of Marginal Distributions 





POOPABEL lite vEio OF AKI EUR: 0920:40960 30 RDS PER VANE 
ToeAR EL ; NUMBER SURVIVORS 
POPULATION NO. OF -PERCENTILES- 
NUM NS” see AN YSDEV 7 025 0 OD 
l > 2.6 0.54772 a) g 
2 2 3 l 2 3 4 
3 2 4 0.70711 4 4 4 
4 5 3 2 2 4 4 
> 5 3.4 0.54772 3 3 4 


POOLED STANDARD DEVIATION ESTIMATE: 1.1045 
Bartlett's Test for Homogeneity of Variance 
Poles! SLA TISTIC 2.4878 
DEGREES OF FREEDOM: 4 600 


SIGNIFICANCE (P-VALUE) LEVEL: 0.042395 


A P-VALUE THAT EXCEEDS « = 0.05 SIGNIFICANCE LEVEL 
MAY INDICATE EITHER NON-NORMALITY OR UNEQUAL VARIANCES 


Cases: | Lane with 0,20,40,60,80 Rounds of Artillery 
(FIVE TREATMENTS) 





0 RDS 20 RDS 40 RDS 60 RDS 80 RDS 
RUNI RUN] RUN] RUNI RUN] 
RUN2 RUN2 Riz RUN2 RUNZ 
RUN3 RUN3 RUN3 RUNS RUN3 
RUN4 RUN4 RUNG RUN4 RUN4 
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Figure 13. Box Plot - SURVIVORS - | Lane 
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RUNS RUNS ies RUNS RENO 
foe ttaR OST RIB TIONS | OR SILRVIVORS ARE EOUCAL 
Peele ote Oo OF eRe wDIS TRIBUTIONS DIPPER 


a =0.05 


(1) Analysis of Variance 


SUM OF MEAN SiG. 
SOURCE SQUARES DF SQUARE E LEVEL 
BETWEEN 5.6 4 l.4 (liaison 026316 
WWITTHIN 24.4 20 1.22 
TOTAL 30 24 


(2) Kruskal-Wallis Nonparametric Test 
K-W STATISTIC (H): = 5.9742 
DEGKEES OF FREEDOM: «4 
ASYMPTOTIC SIGNIFICANCE (P-VALLE) LEVEL: 0.20108 


SIGNIFICANCE LEVEL IS BASED ON CHI-SQUARE APPROXIMATION 


2 Lanes 
Empirical Comparison of Marginal Distributions 


X LABEL — : LEVELS OF ARTILLERY: 0 20 40 60 80 RDS PER LANE 
Y LABEL : NUMBER SURVIVORS 
POPULATION NO. OF -PERCENTILES- 
NUM PNTS YMEAN YSDEV_ 0.25 0.5 0.75 
l 5 1.8 0.83666 | 2 2 
2 5 3 2047 Es Ss es 
3 5 5.6 0.54772 5 6 6 
4 5 5.4 Oy ip 
5 5 6.4 0.89443 6 7 7 


POOLED STANDARD DEVIATION ESTIMATE: 0.84853 
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Figure 14. Box Plot - SURVIVORS - 2 Lanes 
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Bartlett’s Test for flomogeneity of Variance 


cage Sov ss 20 ol Dy GRR es OU | 
DEGREES OF PREEDO Va SeAgy 
SIG CIGNA Pe ie ete ee Otol 53 


Pete ee ie SCE OS = i0)05 SiC ie GAeNC rE Livy iL 
mee | SDICATE EITHER NON-NORMALITY OR UNEQUAL VARIANCES 


Cases: 2 Lanes with 0,29,40,60,89 Rounds of Artillery 
(IVE VREA TNIEN TS) 





0 RDS ZOcRDS 49 RDS 60 RDS SO RDS 
Rob. RUNI RUS Ped Pale 
REN 2 RUN2 Re S2 as (ee Polen? 
KEN 3 KG RUN3 Kees KUes3 
KEN4 4 Ro RUN4 RUN4 
Jee ie) Re hie RSS hea 


peewee OIS TRIB PIGNS FORSS URMPORS ARE EQUAL 
fee EAST TWO OF Thibekt NaDISTRIBE TIONS DIFFER 
o =0.05 


(3, Kruskal-Wallis Nonparametric Test 


mov STA LISTIC (A): 16.751 

DEGnRiELS OF FREEDOM: 4 

AS Tver TORIC S(GROPICA NCE (P-VALULE) LEVEL: 0900087953 
SlGmiICAMGE LEVEL ISSBASED ON CHI-SQLAREMAPPROAIMATION 


3 Lanes 
Empirical Comparison of Marginal! Distributions 
A LABEL Ue VELS OF AR mILLER Y: 02040 60 60 RDS PER LANE 
Veber L : NUMBER SURVIVORS 
POPLLATION NO. OF -PER@e. TES: 
NUM PNAS) ‘(OEAS YSDEV 025 9.5 “0.75 
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Figure 15. Box Plot - SURVIVORS - 3 Lanes 
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l 5 Ie 1.0954 Ogee 2 
: > 2 0.83666 ae 33 3 
s) . See 1.3038 4d 5 6 
4 5 5 O07 it Se 5 
> 5 of 1.3038 Say 7 


POOLED STANDARD DEVIATION ESTIMATE: 1.077 
Bartlett's Test for Homogeneity of Variance 
esol SrAMISMIC -0:49698 
DEGREES OF FREEDOM: 4 600 


SGN pe ICANCE(Ps-VAEUE) LEVEL: 0.73728 


meP-VALUE THAT EXCEEDS « = 0.05 SIGNIFICANCE LEVEL 
MAY INDICATE EITHER NON-NORMALITY OR UNEQUAL VARIANCES 


Cases: 3 Lanes with 0,20,40,60,80 Rounds of Artillery 
(FIVE TREATMENTS) 


0 RDS ZOEK DS 40 RDS 60 RDS 80 RDS 
RUNI RUNI Ke! RUNI RUNI 
RUN2 RUN2 RUN2 RUN2 RUN2 
RUN3 RUN3 RUN3 RUNS KUN) 4 
RUNG RUN4 RUN4 RUN4 RUN4 
RUNS RUNS RUNS RUNS RUNS 


H,; ALL RUN DISTRIBUTIONS FOR SURVIVORS ARE EQUAL 
H,. AT LEAST TWO OF THE RUN DISTRIBUTIONS DIFFER 
e=0.05 


(4) Kruskal-Wallis Nonparametric Test 
K-W STATISTIC (H): 18.656 


DEGREES OF FREEDOM: 4 
ASYMPTOTIC SIGNIFICANCE (P-VALUE) LEVEL: 0.00091791 
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SIGNIFICANCE LEVELS BASED ON CHhiesOUARE APPROXIMATION 


B. MOE- BATTLE TIME 
L leanne 


[Empirical Comparison of Marginal Distributions 


X LABEL: LEVELS OF ARTILLERY: 0 20 40 60 80 RDS PER LANE 
Y LABEL -BATTLETIME 
POPULATION NO. OF PE RGE UES. 
NUM PNTS YMEAN YSDEV 0.25 0.5 0.75 
I 5 35.566 3.2077 33.91 34 aoaG 
2 5 43.618 4.7692 41.14 41.59 44.47 
3 5 41.282 3/535) (diese uN 28 
4 5 45 4.0087 44.7 45.4 45.9 
5 5 55.76 0.65038 55.4 55.6 55.6 


POOLED STANDARD DEVIATION ESTIMATE: 3.5221 
Bartlett's Test for Homogeneity of Variance 
BIEST STAUISMIC + 2.4727 
DEGREES OF FREEDOM: 4 600 


SIGNIFICANCE (P-VALUE) LEVEL: 0.043453 


A P-VALUE THAT EXCEEDS « =0.05 SIGNIFICANCE LEVEL 
MAY INDICATE EITHER NON-NORMALITY OR UNEQUAL VARIANCES 


Cases: 1 Lane with 0,20,40,60,80 Rounds of Artillery 
(FIVE TREATMENTS) 
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0 RDS 20 RDS 40 RDS 60 RDS 80 RDS 
RUNI RUNI RUNI RUNI RUNI 
RUN2 RUN2 RUN2 RUN2 RUN2 
RUN3 RUN3 RUN3 RUN3 RUN3 
RUN4 RUNG RUN4 RUN4 RUN4 
RUNS RUNS RUNS RUNS RUNS 


BATTLE TIME 
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1 2 5 4 5 
LEVELS OF ARTILLERY: O 20 40 60 80 RDS PER LANE 


Figure 16. Box Plot - BATTLE TIME - | Lane 
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Hy; ALL RUN DISTRIBUTIONS POR BATIES TIVE EOUAIE 
HEAT LEAST WV OrOr aie hea SRB eae SS Det bik 


005 
(1) Analysis of Variance 
SUM OF MEAN SiG: 
SOP RGE SQUARES Dit SQUARE 2 LEVER 
BER EEN 1053.5 4 272.08 21.933 4.4468E-7 
WITHIN 248.11 20 12.405 
TOTAL 1336.4 24 


(2) Kruskal-Wallis Nonparametric Test 


KW STATISTIC Gaal7.678 

DEGREES OF FREEDOM: 4 

ASYMPTOTIC SIGNIFICANCE (P-VALUE) LEVEL: 0.001426 
SIGNIFICANCE LEVEL IS BASED ON CHI-SQUARE APPROXIMATION 


2 Lanes 


Empirical Comparison of Marginal Distributions 


X LABEL : LEVELS OF ARTILLERY: 0 20 40 60 80 RDS PER LANE 

Y LABEL : BATTLE TIME 
POPULATION NO. OF ----PERCENTILES---- 
NUM PNTS YMEAN YSDEV_ 0.25 0.5 0.75 

1 5 11.466 2.4338 11.9 1202 12.33 

2 5 19.51 3.7978 164 21.9 22.4 

3 5 21.4 11247 205 214 21.9 

4 5 24.7 0.83367 244 244 24.7 

5 5 27.6 0.88034 26.9 27.2 28.5 


POOLED STANDARD DEVIATION ESTIMATE: 2.1486 
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Figure 17. Box Plot - BATTLE TIME - 2 Lanes 
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Bartlett's Test for Homogeneity of Variance 


PPTES. SAVES TIC 22a. 
DeGREES OF FREEDOM: 41 
SG HNC les NIE) Ieee O09 55 


A PEMALLE THAR OLEDS «=0.05 SIGNIFICANCE PEMicL 
MAY INDICA TEsEIRHER NON-NORBI SLIT POR LNEOLATI VS Ria CES 


Cases: 2 Lanes with 0,20,40,60,80 Rounds of Artillery 
(FIVE TREATMENTS) 


0 RDS 20 RDS 4O RDS 60 RDS sO RDS 
RUNI RUNI RUNI [Nt RUNI 
eee RUN2 RUN2 RUN2 RU Re 
eS RUNS RUN3 RUN3 RUNS 
RUN4 RUN4 RUN4 RUNS RUN4 
RUNS RUNS RUNS RUNS RUNS 


Hy BLIPRUN DISTRIBUTIONS FOR BAT ILE TIME ARE EQUAL 
ip aE AST TWO OF THE RUN DISTRIBUTIONS DIFFER 
= 0.05 


(3) Analysis of Variance 


SUM OF MEAN SEG, 
SOURCE SQUARES DF SQUARE F LEVES 
BEE © 755.53 4 [88.13 40.754  2.4062E-9 
WITHIN Gen 20 20 4.6163 
TOE 844.86 24 


(4) Kruskal-Wallis Nonparametric Test 
Rew STATIS TICWH) 21956 


DEGREES OF FREEDOM? 4 
ASYAMUPRTOTIC SIGNIFIGANCE (P-VALUE) EVEL: O:0002CGHs 
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Sloe Pl Ceres ells base ON CHIesSOEARE APPROAIMATION 


3 Lanes 


Empirical Cor.parison of Marginal Distributions 





MLADEL / LEVELS OF ARTILLERY: 0 20 40 60 80 RDS PER LANE 
re BEL : BATTLE TIME 
POPLLATION NO. OF 2 PERCBNTILES=s: 
Newt) PNTS «=YMEAN YSDEV 0.25 0.5 0.75 
5 5.168 1.999 3.69 3.76 7.22 
2 5 13.8 2.5189 9 14.7 15 15 
3 5 13.4 Cr a 14.5 1 
4 5 16.5 Dales P1628 16.4 16.5 
5 5 19.2 poe 192 19.2 19.2 


POOLED STANDARD DEVIATION ESTIMATE: 2.2843 


Bartlett's Test for Homogeneity of Variance 


Polio St istic 2 6. /571 
DEGREES OF PREEDONI +4 600 
SIG NIFICA NCE (P-VALUCE) LEMWEL: 0,000025305 


pao LCE THAT EXCEEDS o.= 005 SIGNIFICANCE LEVEL 
wear INDICATE EITHER NON-NORMALITY OR LNEQUAL VARIANCES 
Cases: 3 Lanes with 0,20,40,60,80 Rounds of Artillery 
(PIV Ee TREAT View TS) 





Oak S ZOUKDS 40 RDS 609 RDS 80 RDS 
RUNI Kes REN! Ro Ce) 
RES2 RUa2 Rene Rey ha ae 
RNS RAE NS. RU Ki ho 
RUNS RU <4 RUNS bG aNS RUNS 
Keo KEN>S KAD Kee ho 


foe Ces ISt RIC IHIONS TOR BALI LE JIE ARE BOCA 
id LEAS VO OF THEIRUX DISTRIBUTIONS DIFFER 
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Figure 18. Box Plot - BATTLE TIME - 3 Lanes 
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‘3; Analysis of Variance 
ee At MEE NeN Sa 
51) GB SOU ARS DE SOUARL i (hE ae 
BETWEEN = 554.74 4 138.68 £0.57 9. 2s 
WITTUN 104.36 2) Seao2 
TOTAL 69971 24 


(6) Kruskal-Wallis Nonparametric Test 
K-W STATISTIC (H): 20.799 
DEGREES OF FREEDOM: 74 
Pov POC SIGAITICANCE LEVEL 0.0003471 


BIG NIEICANCE LEVEL IS BASED ON CHLSOUARE APPROXIMATION 
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APPENDIX B. RUN DATA 


WITHOUT ARTILLERY 


[ateane 


Wis 
SURVIVORS BATTLE TIMECMINUTES) MINE DIRECT FIRE 
2 4.2 3 y 
3 BB ae | 2 2 
3 33290 3 l 
3 34 4 0 
2 S108) 4 3 
2 lsames 
KILLS 
SURVIVORS BATTLE TIME(MINUTES) MINE DIRECT FIRE 
| 13.76 6 0 
2 12.02 5 0 
3 12.33 4 0 
2 eae 5 0 
[ ies 6 0 
Brlcanes 
KILLS 
SURVIVORS BATTLE TIME(MINUTES) MINE DIRECT FIRE 
l 3.76 5 0 
2 T.22 i 0 
3 3.68 5 0 
Pi 3.69 5 0 
l 7.49 7 0 
20 ROUNDS OF ARTILLERY 


1 Lane 











RIES 





SURVIVORS BATTLE TIME(MINUTES) MINE DIRECT FIRE 


Z 
2 


a Pe, 
B07 


3 p 
ie 3 
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5 4 41.14 | 2 
4 4 44.47 2 
S 3 41.57 2 z 
Se eanes 
NILES 
Pepe Oi bor sel SIN TESh MINI “SDIRIEG 1 FIRE 
] 3 22.4 4 0 
m4 3 16.4 4 0 
3 5 PaaS 2 0) 
4 u [4.45 5 0 
5 2 pa, 5 
3 Lanes 
MES 
peony OS Iba TEE Mit MIN TES) wilh -< DIRECT PIKE 
l 4 [3 3 0 
2 3 IS 4 0 
3 Z 9:3 5 0 
4 3 14.7 4 0) 
5 2 ) 5 0 
C. 40 ROUNDS OF ARTILLERY 
I Lane 
KREPES 
Paes Ny ONSe EA EE TiMEC MINUTES): wi “DIRE@GTEEIRE 
l 5 41.8 0 2 
2 4 41.61 l 2 
3 4 35.8 l 2 
4 4 45.7 l 2 
5 3 41.5 Z - 
2 Lanes 
EES 
poo ORVIVORS PBATILE TIME MINUTES). MINE “DIRECT FIRE 
l > ze 4 0 
? 6 20.2 4 0) 
3 5 21.9 2 0) 


S| 


Ba 


Ett by 


in BR Ww wo — 


bm WY we — 


HR Ww Wwe — 


6 20.5 5 y) 
6 21.4 5 0 
3 Lanes 
Keres 
SURVIVORS BASTRCE TINMIEOWes GES) VIDNE ~DIRIG@ISE IR 
4 15 3 0 
4 oe 3 0 
7 14.5 2 0 
7 oe 0 0 
6 18.6 l 0 
60 ROUNDS OF ARTILLERY 
liane 
KSIIEES 
SURVIVORS BATTLE TIME( MINUTES) “MINE ~ DIREGTiRIRE 
4 38.9 l 3 
4 50.1 0 : 
0 44.7 ju 5 
5 45.4 0 2 
2 45.9 l Z 
2 Lanes 
Kolieess 
SURVIVORS BATTLE TIME(MINUTES) MINE DIRECI@EIRE 
2 24.4 p 0 
5 24.4 ep 0 
6 24.7 l 0 
6 26.1 l 0 
5 23.9 2 0 
3 Lanes 
KILLS 
SURVIVORS BATTLE TIME(MINUTES) MINE DIRECT FIRE 
5 172 J: 0 
S 16.2 2 0 
4 16.4 3 0 
2 16.2 2 0 


a2 














5 


E, 


FR: in Df WG lao [13 


tn tb Ww to = 


HS 


nm I. & NO = 


6 


80 ROUNDS OF ARTILLERY 


i Lane 


16.5 





Set ORS RE, TENN eS) AUN Dat eG Ta iis 


2 Lanes 


SURVIVORS BATTLE VIVE vINC TES) MINE 


- 
- 
- 
6 
5 


3 Lanes 


SURVIVORS BAIT ie DINE CVn ES) MENE 


i Pes eto ane or 


\ Car 
_-~ 
dl 


Cy tay 
ee ft Veer 
CNS Gao ES 


Can Cah Car 
in 


Ca 


209 
LS ae 
26.5 
25.0 


Dalia 


foe 
es ee 
aS 
18.9 
2 
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O 
0 
0) 


| 
2 


= 


Co FSF — Ww 








NIMES 
3 
J 
3 
3 
3 
KILLS 
DIRECT FIRE 
0 
0 
0 
0 
0 
KILLS 
DIRECT FIRE 
0 
0 
0 
0 
0 


APPENDIX C. SAMPLE OUTPUT 


MINE DENSITYCOFR BELT 12 12502, NES PRR walt R. 


MINE # EASTING NORTHING 


1000 t NX 56001.3 78063.0 


10002 NX 56005.8 78043.9 


10003 NX 56009.7 78047. 


10004 INSeS O01. 2 1 S0S0"7 


10005 NX 56018.0 78061.7 


10006 NX 56021.3  78040.2 


10007 NX 56025.0 78039.8 


10008 NX 56029.2 78046.9 


10009 NX 56035.1 78047.7 


10010 NX 56036.9 78050.3 


10011 NX 56041.6 78038.7 


10012 NX 56046.2 78046.0 


10013 NX 56050.2 78050.5 


10014 NX 56053.5 78048.3 
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LOO1S 


LOOTG6 


LOO17 


LOO1S 


10019 


10020 


10021 


10022 


10023 


10024 


10025 


10026 


10027 


10028 


10029 


10030 


10031 


So 56053-2 


No 6G 2-4 


NN 60G0.2 


000720 


NX 06079;0 


WN 56078-2 


DSOaeea eli Lea, 


NX 56084.6 


NX 56089.6 


NX 56095.4 


NX 56098.5 


NX 56101.3 


NX 56105.1 


NA 56109.8 


NX 56113.6 


NX 56118.8 


NA 26123.0 


7$040.3 


"SO47.2 


78049. | 


78046.7 


78048.6 


78050. | 


78059.4 


78050.7 


78048.4 


78049.1 


78050.9 


7805 1.6 


78044. | 


78045.4 


180373 


78053.7 


78037.1 


op) 


10032 


10033 


10034 


10035 


10036 


10037 


10038 


10039 


10040 


10041 


10042 


10043 


10044 


10045 


10046 


10047 


10048 


NA SO1Za2 


Wine DOL 5056 


Ws 2613323 


NX 56138.2 


NX 56141.6 


NX 56145.7 


NX 56150.6 


NX 56153.6 


NX 56157.6 


NX 56162.2 


NX 56167.0 


NX 56169.2 


NX 56174.3 


NX 56178.6 


NX 56182.0 


NX 56186.2 


NX 56189.9 


78047.4 


78028.4 


78050.5 


78063.7 


78039.9 


78049.5 


TSO oes2 


78046.6 


78059.3 


HOOS2:> 


78053.0 


78027.7 


78048.8 


78043.5 


78058.4 


78043.5 


FOOTED 
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LQO49 NA 56193.7 7806.1 


LOOS0 NX DOE9T,.3S  7$049.45 


Mie ETIELD CON PAINS ~.50 NIINIGS 


eeoeneeneneeeneeneeee"-e=® e2eeeeeen 2 aa ee 


Mieve DESTROYED Dy GEUE HOW LI Zek Al GRID: 


10014. NX 56053.5  78045.3 


PE DEST ROVED BY BECE TOW TIIZER AT iGkRID: 


[OO1S NX 56069.6 78046.7 


MIgEWESTROYED BY BEGE HOWIMZER Al-GRID; 


10019. NX 56073.6 78048.6 


Mile DESTROYED BY BLUE HOWITZER ATL GRID: 


10018 NX 56069.6 78046.7 


MINE DESTROYED BY BLUE HOWITZER AT GRID: 


10015) NX 56058.2 78040.3 


Tilise DESTROYED BY BLUE HOWILLZERAL-GKID.: 


10014. NX 56053.5 78048.3 


MINE DESTROVED BY BEEE TOW TIZER AGRI. 


LOO13 “Nex 560302 “750505 


MINE DESTROVED DY BEC ETIOW IM ZER Al Gap: 


[0016 NN 56062.4 78047.2 


MINE DESTROYED BY BLUE HOWIMZER AT GRID: 


[0015 NX 56058.2 78040.3 


MINE DESTROYED BY BLUE HOWITZER AT GRID: 


1OOIL NX 56041.6 78038.7 


MINE DESTROYED BY BLUE HOWITZER AT GRID: 


10008 NX 56029.2 78046.9 


MINE DESTROYED BY BLUE HOWITZER AT GRID: 


10009) NX 56035.1 78047.7 


MINE DESTROYED BY BLUE HOWITZER AT GRID: 


10001 NX 56001.3 78063.0 


MINE DESTROYED BY BLUE HOWITZER AT GRID: 


10022) NX 56084.6 78050.7 


MINE DESTROYED BY BLUE HOWITZER AT GRID: 


10030 NX 56118.8 78053.7 
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Meow Deo Owmie pr DEEL TOW lt Al AG RiD: 


MO2{ NOUS TP SUS 


Teves S RON DabyeRbULLIOW LIA IN GRD: 


10033) NX 5630.6 78028.4 


Mae DESTROYED BY BLEUE HOWLIZER GY! Gili: 


[0024 NX 56095.4 78049. 1 


Mosc: DESTROYED Bi BRUCE HOWITZER Al GRID: 


MUO25 Nes 90098.5- 7S050.9 


MINE DESTROYED BY BLUE LIITOWFFZER AT GRID: 


10024. NX 56095.4 78049.1 


mee DESIKROYED BY BLUE TIOWITIZER Al GRID: 


10025) NX 56098.5 78050.9 


Pres DESTROYED By BLUR TOWIMZER AL GRID: 


10026 NX 56101.3 78051.6 


MENE DESTROYED BY BLUE FHOWELZER AL GRID: 


[10029 NA OOTI3.6.. 78057.5 


MINE DESTROYEDIBY BLUE HOWITZER AT GRID: 


og 


[0030 NN SO SRSiisOs3.7 


MMINE DESTROYED Bi BLUR TIO eRe GE. 


LO030" = NasooteS oy 7s 35.7 


VINE DESTROYED BY BECE TOs Zeke oD: 


10026 NX 36101.3 78051.6 


MINES DESTROYED 26 MINES REMAINING 24 


ELEMENT 2 DESTROYED BY MINE 10012 AT 


ELEMENT 3 KILLED BY DIRECT FIRE@M 


ELEMENT STATUS TIME TO DEATH 


THROUGH 32.05 
THROUGH 28.93 
THROUGH 54.07 
THROUGH 21-0 
THROUGH Zone 
OBSTACL 34,61 

OBSTACL 10.44 


FOR RUN 1 BATREE TIME iol! 


PANE MEAN VARIANCE 
AR ES woe weeeeeee 
NUMBER SURVIVORS: 75:0 0. 
BATTLE GRIME 16.1 0. 
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Bro 


10.45 





ROUNDS FIRED BY BLUE 160 


ROL Waele Bike: 0 
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APPENDIX D. PROGRAM LISTING 


A. PREANIBLE 
PREAMBLE 


NORMALLY MODE IS INTEGER 


PER VANENIENTITIES 
EVERY LANE HAS GRO@ssINGiEA NE oO MAX 
A SAU Tes. (LAS ENDS Ol 1 
A NAELEMENT | > BREACHERS CAGH LANE 
DEFINE N.ELEMENT AS AN INTEGER VARIABLE 
DEFINE START.X AS A REAL VARIABLE 


EVERY MINE.BELT HAS “MINES LOCATED WITHIN 


A N.MINES, “AMINE EACH BEET 
A DEPTH, “DISTANCE INTO MINEFIELD 
AIDEN STE Y, “METERS PER MINE 


A MINE.B.TYPE “MINE TYPES HOMOGENEOUS 
“WITHIN BELTS 

DEFINE NOMINEES, MINE ety Pe AS INTEGER VARIABEES 

DEFINE DEPTH, DENSITY AS REAL VARIABLES 


EVERY WEAPON HAS “INDIRECT FIRE WEAPONS 

A WEAPON.TYPE, “HOWITZER OR CHOICE 

A LETHAL.RADIUS, “LETHAL BURST RADIUS OF ROUND 

A ERROR.X, “IMPACT ERROR EASTING 

A ERROR. Y, “IMPACT ERROR NORTHING 

A WEAPON.UNIT, “BLUE OR RED 

MAY BELONG TO THE BLUE.TGT.LIST “RED TARGETING 
DEFINE LETHAL.RADIUS,ERROR.X,ERROR.Y 

AS REAL VARIABLES 

DEFINE WEAPON.TYPE,WEAPON.UNIT AS TEXT VARIABLES 
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TE NEPORA RY eS eS 
Even MING rhyys 


fe Bb Oe 

WMI NES LAL US, “OGHIVE OR DES TRO, ED 
Fae Cy le lib as we eo Ge CO Ive lor C. 
AENE SEN EASING 

ren Nive & “MINE NORTHING 
ASIEN NC MBER, “MINE TARGET #4 

A DESIRADIVS Mie Lier) Kavli 


ASD SELONGS TO )HE MINE. cIELD GROUPING 
DEPINEsVWINE ye AS AN INTEGER VARIABLE 
DERUSEDEsSIRADICSMINEA, MEINE, RADIUS 

AS REAL VARIABLES 

DERE wise SIAM S ASAS TEXT VARIABLES 

DEPINE SUSE FIELD AS A SET RANKED BY LOW MINE.Y 


EVERY EULle Iii  BREACHER 
A ELEMENT.&, “BREACHER EASTING 
OO EEE vielen, “BREACHER NORTHING 
ACen Anes, < ACTIVE By PpAss THROUGH. 
7OR OBSTACLE(DISABLED) 
AsEVEME NI. VY Pe, 
age) go) 24) (0 
A WIDTH, 
A ELEMENT.NUM, 
ADEA aivic. IiNiiE FO DEAT By DIRECT FIRE 
A ELEM.RADIUS, 
A TRACK.WIDTH, 
MAY BELONG TO THE RED.TGLLISTAND MAY BELONG 
TOTHe ObSTAGEE LIST Tf DISABLED 
DEFINE ELEME™. LN@M ELENMENT.1YPE AS INTEGER VARIABLES 
DEFINE ELE VENA. X.ELE MENG. Y SPEED WIDTEDEATH- TIME 
AS REAL VARIABLES 
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DEFINE ELEMENTS TVG SAS A Tey AAG ie 

DEFINE RED. TGT. LIST AS ASSET RAS Dye ELEMEST.N 
DEFINE OBSTACLE-LIST AS AWSET RANNED BY LOW ELE Mills 
“V-POINTER FOR ELENIENT (TENIP ENTITIES ARB NORDER EIS 
DEFINE Waxs A 1D NSO LD POINTER ARRAY 


GRAPHIC ENTITIES INCLUDE MAP, “DISPEAY BACKGROUND 
XPLODE, ARTY IesGrs 

DEAD TANK OBSTACEE 

DEFINE DTI AS A 1-DIMENSTONAL POINTER ARRAY “IGN POINTER 
DEFINE AB AS A 1-DIMENSIONAL POINTER ARRAY “ ~ 

DEFINE XR AS A 1-DIMENSIONAL POINTER ARRAY ” ” 

DYNAMIC GRAPHIC ENTITIES INCLUDE WINE, DISPEAYS Miixiz 


Eee NU ” DISPLAYS BREACHERS 
DEPINE GReZONE, “GRID ZONE DESIGNATION 
PRE aie. “INPUT FORM POINTER 

GO; SrESWUOUSE 7 wire rERY 
GRAPHICS, EVES TO PDISPLAY GRAPHICS 
CONTINUE “YES FOR ANOTHER ITERATION 


AS TEXT VARIABLES 


DEFINE.ME WIDTE MINER IeeD Ww liom 

GR.BASE.E, “10,000 METER DESIGNATION NORTHING 
GR.BASE.N, + : EASTING 

COMM.TIME, “USED TO COMPUTE BATTLE TIME 

E.WIDTH, ~“BREACHER WIDOEM 

TEMP.RADIUS, “MINE RADIUS 
ONE.ONE,ONE. TWO,ONE THAREE TWOUONE, (PK TABEE YY Aldewis 
TWO. TWO, WO THREE MAREE ONE hier, ©, THREE Thier = 
BATTLE.TIME, “ELAPSED TIME FOR CROSSING 

N.SURVIVOR, “# SURVIVING CROSSING 

E.LENGIO, | BREACHEREE Gir 


rele he OE ee DCiIteSTERIAN KILL COEFFICIENT 
AS REAL VARIABLES 


Dirt NPEACED. COMNSTER POR 1 SUINE INPEACED 


PN le, “US TIA ee MIINES INPLACED 
Noy OE 1S, Cry ORE YS (O-IKE TeiO@ MUN PED 
NEAVECr. oP CHeEerVOUNTS: FOR \AVIGATION 


TOREPEMEND, ~ TOTAL BREACHERS 
VAD DIS NCE LENGE OF MIENEDIELD 


uN, “# ITERATIONS TO PERFORM (RUNS) 
MeBEOE.ROWND, ~ -ARTILLERY ROUNDS FIRED BY BLUE 
N.RED.ROUND 7 i RED 


AS INTEGER VARIABLES 

“GRAPHICAL POINTERS 
DEFINE INPUT.FORM,PR.PORM, DATA.FORM,DEVPTR,” ~ 
INP LOR Metres. FORMINEUTA FORM, INPUTS: FORM, 
TANK.FORM AS POINTER VARIABLES 


CLO URNORD GRA aICS ON SCREEN 
SUBSTITUVE TEESE sTINES FOR (MOUSE.PAUSE 
CALL READLOC.R GIVEN 0,0,0 

YIELDING DUMMY.X,DUMMY.Y,DUMMY.V 


DUMMY.X = DUMMY.X 
DUMMY.Y = DUMMY.Y 
DUMMY.V = DUMMY.V 


WTO CONVER@ SYSTEM TIME TO MINCE TES 
DEFINE MINUTES TO MEAN DAYS 

DEFINE SECONDS TOMEAN HOURS 
DEFINE MILLISECONDS TO MEAN MINUTES 


PROCESSES INCLUDE BLUE.ARIY AlK.viUNE.FIEED 


EVERY RED.ARITY.ATK HAS A TARGEDX,A TARGET. Y 
DEFINE TARGET.X, TARGET.Y AS REAL VARIABLES 
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EVENT eNOGICES 
EVERY MINE-ENCOUNTER MASA LIN Gee De ieee: 
A M.NUMBER 
EVERY NEW-CP TAS Asie ae I) 
EVERY OBSTACLE DNC Oly aie SiS cme tN 2 aia) 1D 


THE SYSTEM OWNS es NEE ibe Bewi TGT-List 
A RED.TGOT.LIST AN OBSTAGEE EIST 


TALLY TOT.MINES AS THE SUM OF N.MINES 

TALLY TOT.ACTIVE AS THE SUM OF INPLACED 

TALLY MEAN.SURVIVOR AS THE MEAN AND VAR.SURVIVOR AS THE 
VARIANCE OF N.SURVIVOR 

TALLY MEAN.BATTLE.TIME AS THE MEAN AND VAR.BATTLE.TIME 
AS THE VARIANCE OF BATTLE.TIME 


“TO STORE RANDOM NUMBER SEEDS 
DEFINE S ASA REAL 1-DIMENSIONAL VARIABLE 


“TO STORE CHECKPOINTS FOR EACH BREACHER 
DEFINE CP AS A REAL 2-DIMENSIONAL VARIABLE 


“TO STORE PATHS THROUGH MINEFIEDL FOR EACH BREACHER 
DEFINE MOVEMENT.PLAN AS A REAL 3-DIMENSIONAL ARRAY 


“TO STORE BYPASS ROUTES 
DEFINE BYPASS.MAP AS A REAL 3-DIMENSIONAL ARRAY 


“TO STORE OBSTACLE IDENTIFICATIONS (WHICH BREACHER) 
DEFINE OBSTACLE.MAP AS A INTEGER 2-DIMENSIONAL ARRAY 


DEFINE LAY.MINE.FIELD AS REAL FUNCTIONS 


END 
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CB. MAIN 

MIAIN 
PE rttOU RSs. = -60 
LET MINUTES.V = 1000 


RESERVE S(*) AS 10 
RESERY bE XB) AS 500 
Reon Vico) 705 500 


CALEINIIARIZ 


Ron. — i LOuikRUN DO 


COMVGTIME = TINIE. V 

iMoZ-Gial “TO CONDUCT MULTIPEE RUNS 
TOU EVE MEN E="N 

CALL RESTART 

EUSE 

POL ELE MENT 

ALWAYS 


CALL LAYIMINE.FIELD 


“TO ALLOW FOR OPTIONAL GRAPHICS 
IF GRAPHICS EQ “YES” OR GRAPHICS EQ “yes” 
CREATE A MAP 
DISPLAY MAP WITH “MAP.ICN” 
CALL SET.DISPLAY 
FOR EACH MINE IN MINE.FIELD DO 
DISPLAY MINE 
LOOP 
FOR EACH ELEMENT IN RED.TGT.LIST DO 
DISPLAY ELEMENT 
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LOOP 
ALWAYS 


“TO FIREARM RAG Mie See ee E LD 
ACTIVATE A BEVEL -AR Tex rie NE rib ED SO. 


“TO START SEMPULATION 
CALL START.SIMO 


“TO PRINT INTER VEDIAGE RES@irts 
SKIP ZINES 

PRN 2 Ne So EES 

ELEMENT SEArGS i LOE ATi 


AA = 0 

FOR EACH ELEMENT OF REDUIGIEIST DO 
PRINT 7 LINE WITH ELEMENT.NGYCELEMENT. STATES, 
DEATH.TIME - COMM. TIME THUS 


fe ee soko ok a te ok 
iP ELEMENT STATUS. EO THROUGH 
ADD 1 TO XX 
ALWAYS 
LOOP 


FOR EACH ELEMENT OF OBSTACLE.LIST DO 
PRINT 1 LINE WITH ELEMENT.NUM,ELEMENT.STATUS,DEATH.TIME - 
COMM.TIME THUS 
ok & Heo 2 2k 2k ok ok pee EE A 
REMOVE ELEMENT FROM OBSTACLE.LIST 
FILE EEBMENT IN RED TGR ISE 
EOOr 


“TO RESET/RESTART SIMULATION FOR NEXT RUN 
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Reoe ile OTwies OF Nr LACED 
BATTLE.TIME = TIME.V - COMAL TIME 
Doe ly OR — REA CNS) 


SOUS ST Nite CORSE KES tits 

SNE eee 

PR PEN Es Wilt SLANE GO AMIE AN SURRY IVOR, 

VAR SU Roly ORGMEAN- BAY [LE TIME VAR BAT PLE TIME TiS 


BORGIR NS 

CANES MEAN VARIANCE 
7a ae ees were te eeeeee 
NCUVMBERSSERVIVORS =°*.* nes 
BAT (UE. Tiyie oe * eee 


POR EACH MINE OF VINE FIELD DO 
REMOVE MINE FROM MINE.FIELD 
DESTROY wii NE 

LOOP 


SKIP 1 LINE 
PRINT | LINE WITH N.BLUE.ROUND THUS 
KOUINDS FIXED BY BEUE > 


SKIP EINE 
PRINT 1 LINE WITH N.RED.ROUND THUS 
ROUNDS FIRED BY RED **** 


“TO RESET/RESTART SIMULATION FOR NEXT RUN 
IF GRAPHICS = *YES* 
FOR I = | TO N.BLUE.ROUND DO 
DESTROY XPLODE CALLED XB(I) 
LOOP 
WW BeUL ROUND =) 


FOR I = 1 TO N.RED.ROUND DO 
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DESTROY XPLODE GABE Eb esi) 
LOOP 
N.RED.ROUND = 0 


FOR I = | TON DO 
IP ELEMENT SEAT US ee Oe ORS ra Cre 
DESTROY" DEADSIASK CALEED Dict) 
ALWAYS 
LOOP 
ALWAYS 
LOOP EXD 


C. ROUTINE LAY.MINE.FIELD 
ROUTINE LAY.MINE.FIELD “THIS ROUTINE LAYS THE MINEFIELD 


DEFINE INTERVAL, “EQUAL SEGMENTS OF MINEFIELD WIDTH 
MEAN, “CENTER OF INTERVAL 

SD “DISTRIBUTION STANDARD DEVIATION 

AS REAL VARIABLES 

DEFINE SEED1 TO MEAN INT.F(RANDOM.F(2)* 10) 


tO AVOID C SEED VALUE 
SEED = SEEDI 
LF SEED = 20 
SEED = 1 
ALWAYS 
FOR EACH MINE.BELT DO 


INTERVAL = MF.WIDTH/N.MINES 
DENSITY(MINE.BELT) = 1/INTERVAL 


SKIP 2 PINES 
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PRN 22ers SV eve SE-DEL RODEN S iy UsiNG UNIT 2 ius 
VNC Wie Soy OP Dipbie 3 => VINES (ERR TER a 
Pe er NES LobNG lt Sh ii S 

Vl NE Pao NG 2 Or thil NG 


FOR I = | TO N.MINES(MINE.BELT) DO 


CREATE A MINE 

MINE.NUMBER = (MINE.BELT*10000) + I 
MEA = (Gl 2- De tN TERY AL)/2 

SD = INTERVAL/6 


“NORMAL SAMPLING TO DETERMINE MINE LOCATION 
MINE.X = NORMAL.F(MEAN,SD,SEED) 
MINE. Y — NORMAL F( DEPTH OIINE BELT), MIENE.DEV, 2) 


PPM LEW 
MINE.X = 0 
ALWAYS 


PRINT 1 LINE WITH MINE.NUMBER, GR.ZONE, 


MINE Asa GR BASE-E,MINE,Y + GReBASE.N USING UNIT 2 THUS 


He HH OR ROKR He a ea Ok 


IF MINE.X GT 0 OR MINE.Y GT 0 
FILE THE MINE-IN THE VIENE.PIELD 
INPLACED = | 
MINE.STATUS = “ACTIVE” 
RADIUS = TEMP.RADIUS 
“MINE TYPES ARE HOMOGENEOUS WITHIN BELTS 
MINE.TYPE = MINE.B.TYPE(MINE.BELT) 
[eS A PGS a ES 
LET LOCATION.A(MINE) = LOCATION. F(MINE.X(MINE), 
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MINE. Y(MINE)) 
SHOW MIN EWI vii. 
ALWAYS 
Os 
DESTRO WISE 
ALWAYS 


LOOP 
LOOP 
SIR 2etlaNies 


PRINT 2 LINES WITH TOTAGINE- USING Winite2 Sinits 
MINEFIELD CONTAINS **3 NEES ES 


INITIAL = TOT.ACTIVE 


RETURN END 


D. PROCESS BLUE.ARTY.ATK.MINE.FIELD 
PROCESS BLUE.ARTY.ATK.MINE.FIELD - 
“THIS PROCES FIRES BLUE ARTILLERY AGAINST THE MINEFIELD 


DEFINE 
IMPACT.X, “ARTILLERY ROUND IMPACT EASTING 
Ver Gli . NORTHING 


DISTANCE “DISTANCE FORM MINE TO IMPACT 
AS REAL VARIABLES 


DEFINE SEEDI1 TO MEAN INT.F(RANDOM.F(3)*10) 


(P 


Bese bk) 
SEED! ="] 
ALWAYS 


eer NO ORG EO ne 
Re meR SN 
ALWAYS 


Prowl ii NE dee MBER OF AIMPOENTS 
FOR EACH WEAPON DO 
ie WEAPON SBE” 
N.AIMPOINT = INT. F(MAX.DISTANCE/(2*LETHAL.RADIUS)) 
ALWAYS 
LOOP 


“TO DETERMINE DISTANCE AND ASSESS DAMAGE TO MINEFIELD 
FOR EACH LANE DO 
FOR EACH WEAPON DO 
IF WEAPON.UNIT = “BLUE” 
FOR K = 1TON.AIMPOINT DO 
FOR T= 1 TON.VOLLEYS DO 


“NORMAL SAMPLING FOR IMPACT LOCATION 
IMPACT.X = NORMAL.F(START.X,ERROR.X,SEED) 
IMPACT.Y = NORMAL.F((2*K-1)*LETHAL.RADIUS, 

ERROR.Y,SEED) 
ADD | TO N.BLUE.ROUND “TO TRACK EXPENDITURE 
IF GRAPHICS EQ “YES” 
CREATE AN XPLODE CALLED XB(N.BLUE.ROUND) 

DISPLAY XB(N.BLUE.ROUND) WITH “XPLODE.ICN” AT 

(IMPACT.X,IMPACT.Y) 
ALWAYS 

“TO SORT (FILTER) MINES FOR DISTANCE 

FOR EACH MINE OF MINE.FIELD WITH 

((IMPACT.X-MINE.X) + (IMPACT.Y-MINE.Y)) LE 


73 


(1.42*LETMAL-RADIUS) DO 
DISTANCE=SOR EGR RAG. X-VIINE Xe + 
CLINIC Ge MINE ) 2) 
“DAMIAGE ASSESSNIENT AGAINST tli 
iP DISTANCE-LE DEE wie Ro ese 
PRIN] TL EPNE Witte EA ONeb SIT, 
WEAPONMYPE Usi.G elt 2a0Gs 
MINE DESTROY ED: BY ier vier ale 


PRINT | LINE WITH MINE.NUMBER,GR.ZONE,MINE.X4,GRIBASEaee 
MINE. Y+ GR{BASE:N USING © NID 2 ies 


we xe ok ok Xf MeXs AeA csh fs of *K ek skckok ook 


SUBERACT LT ERO vVetOi AGC hy i 
MINE.STATUS = “DESTROYED BY BLUE ARTY” 
IP GRAPHICS —- YES: 
DCOLOR.A(ICON.A(MINE)) = 6 
DEISELAYOMLNE 
ALWAYS 
ALWAYS 
LOOP 
LOOP 
LOOP 
ALWAYS 
LOOP 
LOOP 
“TO MAINTAIN ACCOUNTABILITY OF MINES 
PRINT 2 LINES WITH INITIAL - TOT.ACTIVE, TOT.ACTIVE USING 
UNIT 2. THUS MINES DESTROYED -SaeeMINES REMAINING >” 


END 
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F. ROUTINE MAKE.ROUTE 
ROG Ni Vix hE RO iE 


Seis neOe This DESIGNED 1OGEN ERA ACROUTE. POR EACILELE 
ee eo eee oe eI ZED FORDE DA LA 

Stoner \CUCEPE, ib ARRAY IS LABELED SIOVEMENTPLAN ANDIS 
[Ol Zee ICER. OF ELEMENT x VG VIBER OF CIIEGCKVOINISx 5 


Peli Nt 1 ASINILGER VARIABLES 

Deni NE Jas a IS TEGE RV ARTADLE 

PEEINE Kono I NIEGER VARIABLE 

DEINE PAs AN INTEGER VARIABLE 

DEFINE SEEDY TO MEAN INT-E( RANDOM F(5)7 10) 


pO AVOIDO SEED 
SEED = SEEDI 
IF SEED = 0 

SEED = | 
ALWAYS 


“TO DETERMINE NAVIGATION PLAN FOR EACH BREACHER OF EACH 
Pew TOR BACH TANE With LANE GE 2 DO 
AAA = 0 


“TO TALLY BREACHERS ON EACH LANE 
FOR I = | TOLANE-1 DO 
AAA = AAA + N.ELEMENT(LANE-I) 


LOOP 


FOR I = (AAA + 1) TO(N.ELEMENT + AAA) DO “FOR EACH ELEMENT 
CUR.Y.LOC = (AAA-I)*50 “YRESET CHEGKPOING( Y LOGATION 


FORL = | TONUM.CP DO “AND THEN FOR EACH CHECKPOINT 
“GENERATE, USING A NORMAL (0,1) 


1) 


“A NAVIGATION ERROR [IN THE X DIMENSION 
MOVEMENT.PLAN(I,L,1) = NORMAL.F(START.X,2.0, SEED) 
“AND ASSIGN Y LOCATION BASED ON CHECKPORNS 
SEQUENCE NaN TERVAL 
MOVEMENT PUAN EE) — COnae lOc 
CP Ey = CUR EOG 
“AND INCREMENT CHECKPOINT Y-LOCATION COUNTER 


CUR.Y.LOC = CUR LOC. em 


LOOP 

LOOP 

for K = N.ELEMENT(LANE-1)+ 1 to NELEMENT(LANE-1)+ 
N.ELEMENT(LANE) DO 


J = NUM.CP - | 


MOVEMENT.PLAN(K,1,5) = 1 


FORT = 1703 DO “FOR EACH CHECKPOINT, EXCEPT THE baam 


“CALCULATE SLOPE OF LINE CONNECTING CHECKPOINT 
“WITH NEXT CHECKPOINT AND STORE RESULT 
“IN ARRAY 
MOVEMENT.PLAN(K,I,3) = 
((MOVEMENT.PLAN(K,I+ 1,2) - MOVEMENT.PLAN(K,I,2)) / 
(MOVEMENT.PLAN(K,I + 1,1) - MOVEMENT.PLAN(K,I,1))) 


“CALCULATE Y-INTERCEPT OF LINE CONNECTING 
“CURRENT CHECKPOINT WITH NEXT CHECKPOINT 
“AND STORE RESULT IN ARRAY 
MOVEMENT.PLAN(K,I,4) = 
MOVEMENT.PLAN(K,I,2) - (MOVEMENT.PLAN(K,1,3) * 
MOVEMENT.PLAN(K,I,1)) 
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LOOP 


BOOP LOOP TOR EACH PANE WITT! LANE EQ 1 DO 
POR sO Ne Le viEN WO. POR LAG ELE MENT 
Ct ey kG = 0 50. Noel CHECKPOINT y¥ LOCATION COUNTER 


FOR L = 1 TONUM.CP DO“AND THEN FOR EACH CHECKPOINT 


“GENERATE, USING A NORMAL (0,1) DISTRIBUTION, 
“A NAVIGATION ERROR IN THE X DIMENSION 
MOVE VMENTLPLANEGL LL = NORMAL TISTARI.X,2.0 SEED) 
“ND eA sSiGaNes: ¥ LOCATION BASED ON CHECKPOINT 
“SEQUENCE AND INTERVAL 
MOV ENE NTP E ANCE. 2) = CUR. Y.LOC 
CROP) =" Ci Rae LoG 
“AND INCREMENT CHECKPOINT Y-LOCATION COUNTER 
CURA POC] CuRzy.Loc +200 


LOOP 


BOOP 
FOR KR. = 1 TO TOT.ELEMENT DO 


J = NUM.CP- 1 
MOVEMENT.PLAN(K,I,5) = 1 
FOR I = 1 TOJ DO “FOR EACH CHECKPOINT, EXCEPT THE LAST 


“CALCULATE SLOPE OF LINE CONNECTING CHECK 
“WITH NEXT CHECKPOINT AND STORE RESULT 
“IN ARRAY 

MOVEMENT.PLAN(K,I,3) = 

((MOVEMENT.PLAN(K,I + 1,2) - MOVEMENT.PLAN(K,I,2)) / 

(MOVEMENT.PLAN(K,I + 1,1) - MOVEMENT.PLAN(K,I,1))) 
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“CALCULATE ¥-IN@ERCEP)T OFSEENE CO eG eve i 
“CURRENT CHECKPOINT WIITI NEXT GUEGRO Ig 
“AND TS TO RIESE Se ele ee ion a 

MOVEMENT.PLAN(K,I,4) = 

VION EXIEN TOPE A NCR 2) ron Evie LV EANGK 3) 

NIOV E NUE Nai RIE Ao el) ae 


LOOP 


LOOP LOOr RETIN 


END MAKE ROUTE 


FL. ROUTINE NEXT.ENCOUNTER 

ROUTINE NEXT.ENCOUNTER GIVEN ALLEY,ID 

“THIS ROUTINE DETERMINE THE NEXT ENCOUNTER FOR EAGEH 
BREACHER 

“EITHER OBSTACLE, MINE, OR CHECKPOINT 


DEFINE 

NUMBER,ID 

AS INTEGER VARIABLES 

DEFINE 

CP.DISTANCE, “DISTANCE TO CHECK POINT 
M.DISTANCE, “DISTANCE TO MINE 
DURATION, “DISTANCE/SPEED 

Nl, “BREACHER EASTING, NORTHING 
SCH.TIME, “SCHEDULE FOR AN EVENT 
OBS.DISTANCE “DISTANCE TO OBSTACLE 
AS REAL VARIABLES 
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MOO? PROGRAM NO BREACEERS 
(2 © EEE MENT bE 
STOP 
ALWAYS 
Prove Ir BREAGIIER TiEROUGI MILNEFIED OR BECOMES DISABLED 
Meebo vies I otALeSVitD)) EO. THROUGH” OR ELEVEN T STATUS Vib} 
EQ OBS ICL 
RETURN 
PVCS 


eb DISTANCE 1O,-CP GIVING [DY FEEDING GP DISTANCES KI: x2 
GALL DISTANCE.TO.MENE GIVING TD YIELDING SUMIBER, M.DISTANCE 
CALL DISTANCE.TO.OBS GIVING 1D YIELDING OBS.DISTANCE 


Seis 1 LINE. WITH JID. GP DISTANCE, NUDISTANCE, OBS.DISTANCE 
Mites ROW. NES ENCOUNTER ELEMENT =*. CP Al 274") SINE AT 
AO Ok OR AT tk om 


[F CP.DISTANCE < MIN.F(M.DISTANCE,OBS.DISTANCE) 

POoCHEDULE CP ENCOUNFER 

CALL DELTA.TIME GIVING ALLEY,ID,CP.DISTANCE YIELDING DURA- 
TION 
SCH.TIME = TIME.V + DURATION 


pewtN? 2 LINES WITH 1D, SCH ATIME, CE.DISTANCE USING UNIT & 
mn S ELEMENT “= S°NEXT MOVEMENT ENCOUNTER IS-A-CP Al 
Sac =. Vat GRas e - Ne PEN ous YA.) 


SCHEDULE AGNEW CP GIVING ALLEY, ID Al SCH TEME 
ENDIF 


Pee ViEDISTANCE.< MIN-F(CP DISTANCE OBS: DISTANCE) 

“SCHEDULE MINE ENCOUNTER 

CALL DELTA.TIME GIVING ALLEY,ID,M.DISTANCE YIELDING DURA- 
TION 


a9 


SCH TIME = timey + DURA TIGss 


“PRINT 1 LINE WITH ID, NU MIBERSSCIT GME USING UNIT 2 Wines 
“ELEMENT ** S NEXT MOVEMENT ENCOUNTER. IS MINE ***S9 ee 


SCHEDULE A MINE.ENCOUNTER GIVING ALLEY,ID, NUMBER an 
SCE TIME 


PRINT | LINE WITH ID, NUMIBER, SCH. TIME USING UNIT 20s 
ELEMENT ** WILL HIT MINE ***** AT TIME ****.*#* 


ENDIF 


IF OBS.DISTANCE < MIN.F(M.DISTANCE,CP.DISTANCE) 
“SCHEDULE OBSTACLE ENCOUNTER 
CALL DELTA.TIME GIVING ALLEY,ID,OBS.DISTANCE 
YIELDING DURATION 
SCH.TIME = TIME.V + DURATION 


SCHEDULE AN OBSTACLE.ENCOUNTER GIVING ALLEY,ID am 
SCENE 


ERIN TE LINE WITH ID. SEH TIVE R SING UNIS 
ELEMENT "© WIlitHit AN OBSTAGEE AT TIME =" 


ENDIF 


RETURN 
END 


G. ROUTINE DISTANCE.TO.CP 
ROUTINE DISTANCE.TO.CP GIVEN ID YIELDING DISTANCE, DEL.X, DEL.Y 
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StS ROU TENE DETERMINES THE DISTANCE BEDWEEN HibiDES TIFIED 
Sie ie (toe Oo MIE Ne NICHE CKVOINT-O™N TAT ELEXIENTS 
vio we ME STOPS. 


Diehl AS NaS eGR NAR TABLE “he VE MIAN NDE 
DEB eCUKRCPAS AN ANILGER VARIABLE Nae el eg) eek 
Drei e DISTANCE AS A REAL VARIABLE (DIS! BETWLEN ELE & CP 
Perle DELX AS AREAL VARIABLE TO ints SOUR I Xx 
DEFINE DEL.Y AS A REAL VARIABLE CDS Pi NEN GEGEN? 


“DETERMINE ELEMENT’S CURRENT LOCATION 
“ON ITS RESPECTIVE MOVEMENT PLAN, THEN 
IF ELEMENT.STATUS(V(ID))EQ”OBSTACLE” OR 
ELEMENT.STATUS(V(ID)) EQ “TIIROUGH” 
RETURN 
ALWAYS 


CALL FIND.CURRENT.CP GIVING ID YIELDING CURR.CP 


IF ELEMENT.STATUS(V(ID)) EQ “ACTIVE” 
“CALCULATE THE X DISTANCE BETWEEN THEN 
“NEXT CHECKPOINT AND THE ELEMENT, THEN 

DEL.X = MOVEMENT.PLAN(ID,CURR.CP + 1,1) - ELEMENT.X(V(ID)) 


“GAECULAIE tii y DISTANCE BelrwEe™ THE 
INE CERECKVOINT AND THE ELEMENT, THEN 


DEL.Y = MOVEMENT.PLAN(ID,CURR.CP + 1,2) - ELEMENT. Y(V(ID)) 
“USE THE PYTHAGORIUM THEOREM TO DETERMINE 
AE SPRAIGHT LINE DISTANCE BETWEEN Tir 
"ELEMENT AND THE NEAT CHECKPOINT 

ALWAYS 


IF ELEMENT.STATUS(V(ID)) EQ “BYPASS” 
DEL.X = BYPASS.MAP(ID,CURR.CP + I, I) - ELEMENT.X(V(ID)) 
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DEL.Y = BYPASSMHAP UID CU RI CP 2) EE Vie ale, (CIe)))) 
PEW eer 


DISTANCE = SORTAODE EN 2 DE 2) esa Ae Peed) 
DIST NCE = Ore 
“RETURN TIE DISTANGES RELUIS ED 


H. ROUTINE DISTANCE.TO.MINE 
ROUTINE DISTANCE. TO MINE GIVEN TD YIELDING MINE-ID; 
RA NOE TOuviINE 


“THIS ROUTINE DETERMINES THE DISTANCE THAT A*MINE LIES New 
“THE PATH OF A SPECIFIED ELEMENT. INPUTS ARE THE ELE Views 
“TP THE DISTANCES LESS THAN Ie RAs OF Tie sine. 

“AN ENCOUNTER RWILL OCCUR. 


DEFINE 

ID, “BREACHER NUMBER 

WALINE.TD; “MINE NUMBER 

POSSIBLE.MINE, “CANDIDATE MINE FOR ENCOUNTER 
CURKIGKR “BREACHER’S CURRENT CHECK POINT 


AS INTEGER VARTABIEES 


DEFINE 
SLOPE, 
INTERCEPT, 
MINE.SLOPE, 
Y.BOTTOM, 
Y.TOP, 
X.LEFT, 
X.RIGHT, 
Y2,Y3, 
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DISTANCE. O MINE ENG, 
POSSIBLE RANGE, 

ESS 1S, Peviss OIS GAR CE 
mere Sey b, 

eve SC. FOC VELNE 

Pow EAL VARIABLES 


RANGE.TO.MINE = 1000.0 


CA PIND-CCRREND.CP GIVING ID YIELDING CURR.CP 


SuecORD APPROPRIATE VALUES 
SLOPE = MOVEMENT.PLAN(UID,CURR.CP,3) 
INTERCEPT = MOVEMENT.PLAN(ID,CURR.CP,4) 


IF ELEMENT.STATUS(V(ID)) = “BYPASS” 

SLOPE = BYPASS.MAP(ID,CURR.CP,3) 

INTERCEPT = BYPASS.MAP(ID,CURR.CP,4) 

ALWAYS 

Sel rPilrTeRS 
“EFTETERS*ARE USED TO ELIMUNATE 
“FROM INSPECTION THOSE MINES THAT 
“ARE TOO FAR AWAY TO BE POSSIBLE 
YENGOUNTERS.. 1 HIS-REDUGCES THE NOMBER 
“OF CALCULATIONS REQUIRED 

Y.BOTTOM = ELEMENT.Y(V(ID)) 

ner OPr = ELEMENT YiVUID)) +240 CAREPULL@: DOINOT SET UPPER 

“SO LOW AS TO PERMIT UNINTENTIONAL 
“MOVEMENT INTO UNCOMPUTED AREAS 


re (MOVEMENT.PLAN(ID,CURR.CP,1) 
MOVEMENT.PLAN(ID,CURR.CP + I,1)) 
X.LEFT = MOVEMENT.PLAN(ID,CURR.CP,1) - 12.0 
“RIGHT = MOVEMENT, PLAN(UID,CURR.CP + 1,1) + 12:0 
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ELSE 
X.LEFT = MOVEMENT.PLAN(ID,CURR.CP + 1,1) - 12.0 
X.RIGHT = MOVEMENT.PLAN(ID,CURR.CP,1) + 12.0 
ALWAYS 
“EOR BYPASSING ELEMENTS 
IF ELEMENT.STATUS(V(ID)) = “BYPASS” 

IF BYPASS.MAP(ID,CURR.CP,1) LE BYPASS.MAP(ID,CURR.CP + 1,1) 
X.LEFT = BYPASS.MAP(ID,CURR.CP, 1) - 12.0 
X.RIGHT = BYPASS.MAP(ID,CURR.CP + 1,1) + 12.0 

ELSE 
X.LEFT = BYPASS.MAP(ID.CURR.CP + 1,1) - 12.0 


X.RIGHT = BYPASS.MAP(ID,CURR.CP,1) + 12.0 
ALWAYS 
ALWAYS 


“USE FILTERS TO REDUCE NUMBER OF CANDIDATE MINES 
“LOOK AT EACH MINE 
FOR EACH MINE IN MINE.FIELD WITH MINE.STATUS = “ACTIVE” DO 
IF MINE.Y > Y.BOTTOM AND MINE.Y < Y.TOP AND MINE.X > X.LEFT 
AND MINE.X < X.RIGHT 


“PRINT | LINE WITH MINE.NUMBER, MINE.X, MINE.Y USING UNIT 2 
“THUS MINE ***** IS A CANDIDATE. ITS COORDINATES ARE: 


’Odck ok cha hak ck ook ok 
e 9 a 


“CALCULATE SLOPE OF LINE PERPINDICULAR 
“TO PATH EQUATION USING M1*M2=-1 
MINE.SLOPE = -1.0 / SLOPE 
“USE POINT-SLOPE FORMULA, 
“Y.Y1=M(X-X1) TO DEVELOP EQUATION FOR 
“MINE-LINE, COMBINE WITH EQUATION FOR 
“MOVEMENT PATH LINE TO SOLVE FOR 
“INTERSECTION POINT 
XI = (MINE.Y - INTERCEPT - (MINE.SLOPE * MINE.X)) / 
(SLOPE - MINE.SLOPE) 
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ib Sx SLOPE a ENVeRCUPT 


PRA Nel elie Savile er Ile rele ie LS 


MINE INTERCEPT POINT IS ##*.2*, #? 


“COMPUTE MINE DISTANCE FROM MOVEMENT PATH 

X2 = XI- MINE.X 

Y2 = Y1- MINE.Y 

MISS.DIS = SQORT.F(X2#*2 + Y2**2)- WIDTH(V(ID))/2 
“COMPUTE MINE ENCOUNTER DISTANCE 
“FROM MOVING ELEMENT 

X3 = XI - ELEMENT.X(V(ID)) 

Y3 = Yl - ELEMENT. Y(V(ID)) 

DISTANCE.TO.MINE.ENC = SQRT.F(X3**2 + Y3**2) 


fost PE EINE Wild wiINE NUwWIBER, MISS.DIS CsINGUNIT.2 THUS 
NUE WAS 68 PROM PATE: 


“LIST MISS.DIS 
IF MISS.DIS LT (RADIUS(MINE) + (.5*WIDTH(V(ID)))) 


POSSIBLE.MINE = MINE.NUMBER 
POSSIBLE.RANGE = DISTANCE.TO.MINE.ENC 


PRINT P LINE WITHeMINE.NUMBER THUS 
MEOOKS Lik MINE NUMBER 772** WILL-GELHIt 


IF POSSIBLE.RANGE < RANGE.TO.MINE 
MINE.ID = POSSIBLE.MINE 
RANGE.TO.MINE = POSSIBLE.RANGE 

ALWAYS 

ALWAYS 
ALWAYS 
LOOP 


“PRINT | LINE WITH MINE.ID,RANGE.TO.MINE USING UNIT 2 THUS 
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MIINE ***** WILL BE ENCOUNTERED Tee". Saevir [leks 


pave AU ONS 
LES “DISTANCES OVEN 


I. FUNCTION DISTANCE.TO.OBS 
FUNCTION DISTANCE.TO.OBS GIVEN ID YIELDING DISTANCE 


“THIS FUNCTION DETERMINES THE DISTANCE FROM THE GIVEN 
“ELEMENT TO ANY OBASTCLES WITHIN THE ELEMENTS CURRENT 
“CHECKPOINT SECTOR. THE OBSTACLE ID AND THE DISTANCE TO faire 
“OBSTACLE’S EDGE THAT INTERSECTS THE ELEMVENTS PATH ARE 
“RETURNED 


DEFINE ID AS AN INTEGER VARIABLE “ELEMENT ID 

DEFINE OBS.ID AS AN INTEGER VARIABLE “OBSTACLE ID 
DEFINE DISTANCE AS A REAL VARIABLE ” DISTANCE TO OBS ID’ED 
DEFINE LITTLE.D AS A REAL VARIABLE 

DEFINE BIG.D AS A REAL VARIABLE 

DEFINE FRACTION AS A REAL VARIABLE 

DEFINE CURR.CP AS AN INTEGER VARIABLE “CURRENT ELE CHECKPNT 
DEFINE SLOPE AND Y.INT AS REAL VARIABLES “FOR ELE PATH EQN 
DEFINE K AS AN INTEGER VARIABLE “COUNTER . 
DEFINE OBS.SLOPE AS A REAL VARIABLE “SLOPE OF PERPENDICULAR 
DEFINE E.X AND E.Y AS REAL VARIABLES 

DEFINE OB.X AND OB.Y AS REAL VARIABLES 

DEFINE XI AND YI AS REAL VARIABLES “LOC OF INTERCEPT 
DEFINE X2 AS A REAL VARIABLES “DELTA DISTANCE, EACH AXIS 
DEFINE X3 AND Y3 AS REAL VARIABLES 

DEFINE C.X AND C.Y AS REAL VARIABLES 

DEFINE OFFSET AS A REAL VARIABLE “STRAIGHT LINE DISTANCE 
DEFINE DIS.TO.OBS AS A REAL VARIABLE “DISTANCE TO OBSTACLE 
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DELS OB RAD ASA REAL VARIABLE “KN DIUs OF OBSTACH: 
DIET tNE ERAD AS REAL VARIABLE 

DEP NI CONTACT RAD AS REAL VARIABLE 

Pind tapi bex DELY As IKEA VARIABLES 

ey DE Ore oAS REAL VARIABLES “Ci PREECE lO OBS 
Deri NE CURRENE DEST AS AREAL VARIABLE 

DEFINE CHECKED. LIST AS A I-DIMENSIONAL INTEGER ARRAY 


NIE ZEsO lata NCE AND ID Witt VALUES WHICH WiLL 

NOM PCSsIbe Bi SELECTED AS THE NEXT ENCOUNTER TO 

Pik Vi leet Pi SObe TION (ALSO PREVENT NEL 
“SUBSCRIPT POR OBSTACLE ARRAY) 


eee ven STATES Vip) =—~OBSTACLE 
RETURN 
ALWAYS 


DISTANCE = 10000.0 

OBS.ID = 1 

E.X = ELEMENT.X(V(ID)) 

E.Y = ELEMENT.Y(V(ID)) 

E.RAD = ELEM.RADIUS(V(ID)) 

RESERVE CHECKED.LIST(*) AS NUM.CP/2 


‘SVAN SsOF 2 ISIUSEDTOUNDICATE ELEMENT IS 
“BYPASSING - SINCE THIS PROGRAM IS NOT 
“DESIGNED TO ALLOW MORE THAN ONE ENCOUNTER 
1SVE ere EbEMEST Al yw IMeE A Teele VEN 
“1S ALREADY BYPASSING, THIS ROUTINE IS NOT 
WELOWED TO RUN. 
Pobre MENT STATUS (VID) aNE BYPASS” 


GALL END CUORRENT.CP GIVING ID YIELDING CURR.CP 
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Vt ppt pt tte tee ete t+++DEBUG MESSAGE - USED TO SIIOW CP 
LSED 
“PRINT 1 LINE Wit ID. CURR Gees 


’ FIRST NEED TO FIND OUT IF OUR SCHEDULED PATH, 
“ADJUSTED FOR EPEXVIENI A 1D VIPS Ci. ities 
“EXISTING OBSIACEE, OBST ANGLE DATA CONotol Ss Or elinne 
“COORDINATES OF THE GENTER OF THe OBSTACLE Apia: 
“RADIUS OF THE OBSTACLE. BOTH VALUES ARE DYNAMIC, WITH 
“THE COORDINATES CHANGING TO INDICATE THE CENTROID OF 
“A MULTIPLE ELEMENT OBSTACLE, AND THE RADIUS INCREASIES 
“TO GIVE THE RADIUS OF THE LARGER OBSTACLE. 

. THIS ROUTINE CHECKS Bot THE CUR RENTA Dae 

“INEXT CP INTERVAL = THIS ASSUMES THAT THE Osst Aer 

“WILL NOT HAVE A RADIUS GREATER THAN 1.5 CHECKPOINT 
“INTERVALS. IF OBSTACLES ARE 10 BE ALLOWED GREATERSSIZE 
“THEN ADDITIONAL INTERVALS WILE NEED TO BE CHECKED. 


’ DETERMINE IF AN OBSTACLE HAS EXISTS IN THE CURRENT 
CHG KE ON T SUiNgEE Vee 
“LINE EQUATION PARAMETERS FOR 
“ELEMENTS GCURRENA PAti 
SLOPE = MOVEMENT.PLAN(ID,CURR.CP,3) “SLOPE OF PATH LINE 
Y.INT = MOVEMENT.PLAN(ID,CURR.CP,4) “Y-I[NTERCEPT OF PATH LINE 


FOR I = 1 TO NUM.CP/2 DO 
CHECKED.LIST(I) = 0 
LOOP 


START.SEARCH’ 


CURRENT.BEST = 1000.0 
K = 0 
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Mme AChble went Ol OBI ACHE Bis! WhiIleLe VENTA GE b.y DO 
De bie Ma DSc), SOUS Ave Vie (Ses 
CHG ED sels ete Wie Nie Ni) AN DN OL AREJE G1 ED 
eee vil Y = -CURKES fb Si 
CURRIE SIDES t =r Wit y 
Woe ELEVEN NEI 
LEAVE 
END: 
os BO g 
NOTE 
LOOP 


[F (K = 0) 
PRINT t LINE WITH ID THUS 
INO OBSTACLE POUND IN ELEMENT ** S PATH 
ReELORN 
ENUF 


OB.RAD = ELEM.RADIUS(V(K)) 
CONTACT.RAD = OB.RAD + E.RAD 
OB.X = ELEMENT.X(V(K)) 
OB.Y = ELEMENT.Y(V(K)) 


“Ft+tttt+e+et+++4+4++4+4++dOEBUG MESSAGE -- IDENTIFY OBSTACLE 
“PRINT | LINE WITH ID, K THUS 
“EXAMINING RELATIONSHIP BETWEEN ELE ** & OBS ** 


Sei) MLING WITH EX. E.Y OBA, Ob:Y FAUS 
Pele veENDLISAL XS "ate YY = 2 OBSTACLE AT 


ae — **4 *&4 — *** &4 
pa ia . b ] ye ra 4 


“DETERMINE INTERCEPT POINT OF THE MOVEMENT 
“PATH AND THE PERPENDICULAR LINE FRAT PASSES 
THROUGHCEHE CONTER-OF PHt-Obs FACIE 


OBS SECr Ee = =107 SEOPRE 
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“CALCULATE COORDINATES OF INTERCEPT POINT 
“USING POINT-SLOPE FOR WILLA 
(OB.Y - Y.INT - (OBS.SLOPE * OB.X)) ' (SLOPE - OBS.SLOPE) 
X1 * SLOPE + Y.INT 


ml 
“dl 


I 


“COMPUTE OBSTACLE CENTER DISTANCE FROM 
 MEOV EMIENT PATH GORENG HAs 
Al - OB.X 


“A 
=) 
It 


“DETERMINE THE SURATIGHUT LINE DISTANCE 
“BETWEEN THE INTERSECTION POINT AND aie 
“CENTER OF THE OBSTACLE (PERPENDICULAR Ne) 
OPESET = AbS.new 2) 


“IN ORDER TO ALLOW FOR 
“OBSTACLES TO OVEREAr GCREGhPOINT LIENES, 
“OBSTACLES THAT ARE TOO FAR AWAY, AND WHICH WILL 
“NOT BE ENCOUNTED USING THE CURRENT PATH EQUATION 
“MAY BE EXAMINED] IE THIS TINE PE NS ThEsOrD Spi 
“VALUE CALCULATED WILL BE GREATER THAT THE €@GsxiiiR Ew 
“ELEMENT-OBSTACLE RADIUS. TF THIS HAPPENS, DISCARD 
“OBSTACLE AS A CANDIDATE. 
“LE“~DELTERMUNE TE CO MiACl AK ES VIUACE 
" LIST OFFSET,CONTACT.RAD 
IF (OFFSET > CONTACT.RAD) 


“Ptttttt¢ett+e+e++++++dD£E&BUG MESSAGE 
“PRINT 1 LINE WITH ID, CURR.CP, K THUS 
“CANCELLED BYPASS CALC FOR ELE, At CP “sho RORs. 


CHECKED.LIST(K) = 1 “SELECTION WAS NO GOOD 
GO TO ‘START.SEARCH’ 
ENDIF 


DEL.X = X1-E.X “CHANGE IN X FROM ELEMENT TO INTERSECTION 
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DEL.Y = YI-E.Y “CHANGE IN Y FROM ELEMENT TO INTERSECTION 
“MASSING SIDE OF RIGIIT TRIANGLE 
LITTLE.D = SQRT.F(CONTACT.RAD**2 - OF FSET**2) 
“DISA SCE PRO. TELE WENT NO lst ERSECTION 
BIG.D = SQRT.F(DEL.X**2 + DEL.Y**2) 
“PERCENTAGE OF THAT DISTANCE COVERED BY OBSTACLE 
PRACTION = UITILE.D “BIG.D 
“EXPRESSED AS A CHANGE IN X 
FRACTION * DEL.X 
UND AS A CHANGE IN 
FRACTION * DEL.Y 


X3 


»e. 


“BASED ON PATH SLOPE, DETERMINE IF CHANGE IN A 
TSPOSITIVE OR NEGATIVE 
Pes vOrE. 2.0 
CN] Ale XD 
ENDIF 


le SLOVE <.0 
Gye = XI X38 
ENDIF 
“AND DETERMINE CHANGEIN YoRESULTING.C.x. CY 
“ARE THE COORDINATES OF THE FIRST OBSTACLE RADIUS 
“= PATH LINE INTERSEGIION, THE -€.x CAN BE USED 
“TO DETERMINE WHICH DIRECTION TO BYPASS (SHORTEST 
“DISTANCE AROUND). 
Gye= Yb ¥3 
ee. — Ey 
“PRINT I LINE WITH ID, K THUS 
Meee Vie Nl =" WAS ALREADY BEYOND BEGINNING OF OBS ** -REIRY 
CHECKED. LIST(K) = 1 
GO TO ‘START.SEARCH’ 
ENDIF 
Se tt PBI MESSAGE CHECK'ON TERR DIRECTION LOGIC 
Sei bP EVE Witt CY, E.y TEs 


91 


“ELEMENT ** HAS A C.Y OF ***,** AND AN E.Y OF ***.*# 


“CALL BYPASS [O DIRIMBIRVRENG COC. TlONtOl maa. 
“FPROMIPPA TH 1T@ BYPASS) Wiis OBS TACEE ak as thie 
“OBS EXNGLE NU MBER MINES ile) 0S. biieeGhe re 1) as 
“AND THE CHANGE IN ¥Y FROM THE ELEVIENTS CURRED 
“POSITION TO Tht 2x hii: 

CALL BYPASS GIVING ID ox nolE LDOIUNG F- DEF DELAY 


F.DEL.X - EX “CHG IN X FROM ELEMENT TO EXIT POINT 
F.DEL.Y - E.Y “CHG IN Y FROM ELEMENT TO EXIT POINT 
“CAN NOW COMPUTE THE DISTANCE TO 
“THE EXIT POINT TO BYPASS THE OBSTACLE 
DIS.TO.OBS = sqrt.f(F.DEL.X**2 + F.DEL.Y**2) 
+ + +DEBUG MESSAGE -- SHOW DIST FROM EACH OBSTACLE 
“PRINT | LINE WITH ID, DIS.TO.OBS THUS 
“ELEMENT ** IS ***.** FROM AN OBSTACLE 


f DEN 
eat 16) eye 


TF THE RESULT IS BETTER RELA NSPE Gui Kee 
“BEST, AND A VALID OBSTACPE SHE UR ir 
THE CU RISE Nebo 

IF (DIS.TO.OBS < DISTANCE) AND (DIS.TO.OBS > .01) 


+ 44; DEBU GIMESSAGE ==SHIOW DIST FOR CLOSES? OBS 
“PRINT 1 LINE WITH ID, DIS.TO.OBS THUS 
“ELEMENT *" 1S 478)" ™ METERS FROM@NIOE SIUAG@Er 


DISTANCE = DIS.TO.OBS 
OBS:1D>= K 
ENDIF 
ENSUE 


+ + +DEBUG MESSAGE -- USED TO MAKE SURE STATUS IS ! 


“PRINT 1 LINE WITH ID, ELEMENT.STATUS(V(ID)) THUS 
“ELEMENT “VAS SI AUS" 


2 


REG RN 
Exe DISTANCE-TO:OBS 


J. ROUTINE DELTA.DISTANCE 


EOLT NE DELTA. DISTANCE GIVEN ID,TRAVELTIME YIELDING -DIs- 
ie NCE 


bts ROU TINE DETERMINES Tile CHANGE DISTANCE 


DEFINE ID AS AN INTEGER VARIABLE 
DEFINE TRAVEL. MIME DISTANCE, VELOCITY AS REAL VARIABLES 


VELOCITY = SPEED(V(ID)) 

DISTANCE = TRAVEL: TIME * VELOCITY 
RETURN 
END 


ROUTINE DELTA.TIME GIVEN ALLEY,ELEMENT.ID AND DISTANCE 
YIELDING DURATION 


“THIS ROUTINE DETERMINES HOW LONG IT WILL TAKE AN ELEMENT 
“TO COVER A GIVEN DISTANCE. THE ROUTINE ACCESSES THE 
“ELEMENT RECORD TO DETERMINE ELEMENT SPEED AND RETURNS TO 


Muni CALLER THE TIME IT TAKES HAT ELEMENT TOCOVER THAT 
SISTANCE, 


DEFINE ELEMENT.ID AS AN ENTEGER VARIABLE 


DEFINE DISTANCE,DURATION AS REAL VARIABLES 
PALL EX GE? 


FOR I = 1 TO (ALLEY-1) DO 


a5 


AAA = AAA + N.ELEMENT(ALLEY-D 

LOOP 

AAA = ELEMENT.ID - AAA 

DURATION = (DISTANCE / SPEED(V(ELEMENT.ID)))*AAA 
ELSE 

DURATION = (DISTANCE / SPEED(V(ELEMENT.ID)))*ELEMENT.ID 
ALWAYS 

RETURN 
END 


K. ROUTINE FIND.CURRENT.CP 
ROUTINE FINDICURRENT.Ce GIVEN TD yIEEDING GOR Gr 


THIS ROUTINE DETERMINES WHIGHGHECKPOINT ON Tite 
“MOVEMENTPLAN IS CURREN@T FORA Giy EN ELEMENT 


DEFINE ID, AND CURR.CP AS INTEGER VARIABLES 
DEFINE J AS AN INTEGER VARIABLE 


IF ((ELEMENT.STATUS( V(ID)) = "“ACTIVE”)OR(ELEMENT.STATUS(V(ID)) = 
“OBSTACLE’)) 
FOR J = 1 TONUM.CP DO “CHECK EACH CHECKPOINT IN ORDERS 
“LOOKING FOR THE CURRENT ONE FOR 
“ELEMENT ID. 
IF MOVEMENT.PLAN(ID,J,5) > 0, 
WHEN FOU NID, REGORD Tie bNDWE- 
CURR.CP = J 
“AND EXIT THE LOOP 
LEAVE 
ENDIF 
LOOP 
ENDIF 
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[F ELEMENT.STATUS(V(ID)) = “BYPASS” 
FORJ = 1TO4DO 
IF BYPASS.MAP(UIDJ,5) > 0, “LOOK FOR ACTIVE STATUS FLAG 
“IBYPASS.MAP(*,*,5) >. 0} 


opr BIG Vib soANGi = RECORDS BYPASS LOCATION 
Sign 2 Lies wp ee ME NT X(V(1))), 
Sree vie Vix (VD) TIMe.V TACs 


BeOS MONS. = Te St a ee et 


CURR.CP = J 
| “WHEN FOUND, RECORD THAT POINT AND 
LEAVE “EXIT LOOP 
ENDIF 
LOOP 
ENDIF 
RETURN “RETURN CURRENT CP INDEX 


Ea FiND.CURRENT.CP 


L. ROUTINE OBSTACLE.CONSOLIDATION 
ROUTINE OBSTACLE.CONSOLIDATION “THIS ROUTINE COMBINES TWO 
OR MORE OBSTACLES INTO A “SINGLE LARGE OBSTACLE TO FACILITATE 


BYPASSING 


DEFINE DISTANCE AS A REAL VARIABLE “DISTANCE BET OBSTACLES 
DEFINE RADWASA, REAL VARIABLE OBSTACLE RADIUS 

DEE Neely“ Z7AS REAL VARIABLES 

DEFINE RAD2 AS A REAL VARIABLE “OBSTACLE RADIUS 

DEFINE A2, Y2 AS REAL VARIABLES 
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DEFINE CP.RESULT Asean iE GER > KT 


“p+t++ tet +++++D£EBlLG MESSAGE -- RECORD ROUTINE ENTRY 
“PRINS 1 LINE Biles | 
“OBSTACLE-CONSOLI DA LION IGNEEED 


Resa 
FOR EACH EUEVIEND OF OBSTACLE LIS 1 DO 
“TE OBSTACLE EXIS TOF RESORD NEEDED NEO 
[ELE MiNi x -2-0 
RADI = EEEMERADIUS 
Al = ELEMENT.A 
Vij "ELEN Ny 
AX = ELEMENT.NUM 
“COMPARE TO ALL REMAINING OBSTACLES 
FOR EACH ELEMENT OF OBSTACLE UIST WITH ELEMENITNU MNES 
DO 
(Pee LEME N Tv ="0 
RAD2 = ELEM.RADIUS 
Me = EEE Nile 
Y2 = ELEMENT ¥ 
“COMPUTE DISTANCE BETWEEN OBSTACLE CENTERS 
DISTANCE = SORT. FQMI-X2)*22 = (Yy)-y 2) 
“LIST DISTANCE,XX,ELEMENT.NUM,2*(RADI + RAD2) 
IF DISTANCE = 27 RADI Aw) 
REMOVE ELEMENT FROM OBSTACLE.LIST 
FILE ELEMENT NN RED TGs) 
site DE BUGevIESSAGE RECO RIO EO 1S BEING. 
“COMBINED PRINT I LINE WITH XX,ELEMENT.NUM THUS 
-- COMBINING OBSTACLE ** AND ** 


ELEMENT.X(V(XX)) = (XI + X2)/2.0 
ELEMENT.Y(V(XX)) = (YI + Y2)/2.0 

ELEM.RADIUS(V(XX)) = ((DISTANCE + RADI + RAD2)/2.0) 
FOR EACH ELEMENT OF RED.TGT.LIST WITH ELEMENT.Y LE 
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PLE VEN (yess) DO 
BYPASS MARCEDE ME NINE. M2) 0 
CX) Sos OIViIN Gee be NT Ne MNO VIE DING Zia 
LOOP 


eee ee EBC GO viEsS AOL =kheECORD NEW RADILS 
[PRES IevINE-WItHh-OBS.RADILS(OBU)) Tics 
Sees EL IING OBSTACLE RADIGS IS ***.** 


“UPDATE OBSTACLE. MAP AND FIND NEAREST CP 
CP.RESULT = TRUNC.F(ELEMENT.Y(V(XX))/20) + I 
OBSTACLE.MAP(XX,CP.RESULT) = | 
“TEMP UPDATE PROCEDURE TO CHECK 
“OBSTACLE MAP - NEEDS TO CHECK 
“GREATER RANGE... 

IF ((ELEMENT.Y(V(XX)) - ELEM.RADIUS(V(XX))) < 

MOVEMENT.PLAN(XX,CP.RESULT,2)) AND (CP.RESULT > 1)) 
OBSTACLE.MAP(XX,CP.RESULT - 1) = 2 
ENDIF 
“ELIMINATE 2ND OBSTACLE FROM OBSTACLE LIST 
GO TO ‘RESTART’ 
ENDIF 
ENDIF 
LOOP 

ENDIF 

LOOP 

RETURN 

END 


M. EVENT OBSTACLE.ENCOUNTER 
Bvenl OBSIACEE ENCOUNTER GIVEN PINE, LD 
SERISEVENIVAGLERS THE STATUS OF THE BREACHER TO SIGNIPY 
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“THE INITIABIGN OF A BYPASS 
DEFINE [DAS AN INTEGERS Gr EEE 
CALLE PDAILE LOGNTION 
CUANGE ELE MEN EST hie SO BYPASS 
ELEMENT.STATUS(V(ID)) = “BYPASS” 
“PRINT LUNE WITTE ID Ges 
(ELE MENL =" 15 BYPASSING 
By PASS.MAP(ID,1,5)=1) POENT TOdsf GHECKrOINT EN By PASS 
CALL NEAT.ENCOUNTER GIVING LINE,ID 


Ree RGN 
END OBSTACL EF BNC OUTER 


N. ROUTINE START.SIMO 
ROUTINE START.SIMO 


START SIMULATION 


RETURN END 


O. EVENT NEW.CP 
EVENT NEW.CP GIVEN LINE,ID 
“THIS EVENT DETERMINES THE BREACHERS NEW/NEXT CHECKPOINT 


DEFINE ID AS AN INTEGER VARIABLE 
DEFINE CP.ID AS AN INTEGER VARIABLE 
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fy PEEME MIST Ames (DD) — “OBSTACLE” 
oie Ras 
ALWAYS 


ere CPRDATE, LOCATION 
Crete CURRENTGPR GIVING ID YIELDING CPID 


“IF ELEMENT IN BYPASS MODE 
IF ELEMENT.STATUS(V(ID)) EQ “BYPASS” 
“AND READY TO RE-ENTER MOVEMENT PLAN FROM BYPASS 
IF CP.ID EQ 3 
ELEMENT.X(V(ID)) = BYPASS.MAP(ID,4,1) 
ELEMENT.Y(V(ID)) = BYPASS.MAP(ID,4,2) 
ELEMENT.STATUS(V(ID)) = “ACTIVE” 


PRINT 1 LINE WITH ID THUS 
ELEMENT ** IS RE-ENTERING MOVEMENT PATH 


” ERASE CHECKPOINT STATUS INDICATOR FOR ELEMENT 
FOR I = 1 TONUM.CP DO 

MOVEMENT.PLAN(ID,I,5) = 0 
LOOP 


“DETERMINE WHICH CHECKPOINT WAS RE-ENTERED INTO 
“AND MARK THAT ONE AS THE CURRENT CHECKPOINT 
FOR I = 1 TO NUM.CP-1 DO 
IF ((CP(ID,I) < ELEMENT.Y(V(ID))) AND (CP(ID,I +1) > 
ELEMENT.Y(V(ID)))) 
MOVEMENT.PLAN(ID,I,5) = 1 
ALWAYS 
LOOP 
IF ELEMENT.STATUS(V(ID)) NE “OBSTACLE” AND GRAPHICS = “YES” 
LOCATION.A(V(ID)) = LOCATION.F(ELEMENT.X(V(ID)), 
ELEMENT.Y(V(ID))) 
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DISPLAY V(ID) 
ALWAYS 
CALL NEXT.ENCOUNTER GIVING LINE,ID 
RETURN 
NE orwts 


IE Calon 
ELEMENT.X(V(ID)) = BYPASS.MAP(ID,CP.ID + 1,1) 
ELEMENT.Y(V(ID)) = BYPASS.MAP(ID,CP.ID + 1,2 
ALWAYS 


“4p oe tt DEBUG MESSAGE -- LOCATION ON BY PASSiie we 
“PRINT 1 LENE WIT TD CPD Ber ip eit ire 
ELEMENT “AY MOVED PROMED iss) lO BY PASSs 


BYPASS. WAAPGID:GP AID, 5) =-0 
BYVASS MAPUD CPD + i 5) =. 
ALWAYS 


IF ELEMENT.STATUS(V(ID)) = “ACTIVE” 
“ALL DONE MOVING 
IF CP.ID + 1 = NUM.CP 
SPEED(V(ID)) = 0 
LIST ID,NUM.CP,ELEMENT.Y(V(ID)) 
ELEMENT.STATUS(V(ID)) = “THROUGH” 
RETURN 


ENDIF 
“UPDATE CHECKPORN? status FLAGS 


MOVEMENT.PLAN(ID,CP.ID,5) = 0 
MOVEMENT.PLAN(ID,CP.ID + 1,5) = 1 
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"ER DATE EEE MEN C POSITION LOCATION 
PRE MeN ex(VilD) = MOVENIE NT PEAN IIDC? 21.1) 
Peeve Nay VCO) VIOVEMIENT Pia SiD GPiiD 4.1.2) 


ENDIF 

IF ELEMENT.STATUS(V(ID)) NE “OBSTACLE” AND GRAPHICS = “YES” 

LOCATION.A(V(ID)) = LOCATION.F(ELEMENT.X(V(ID)), 
ELEMENT.Y(V(ID))) 

DISPLAY V(ID) 

ALWAYS 


CALL NEA ENCOUNTER GIVING LINE ID 


I ON 
END NEW.CP 


P. EVENT MINE.ENCOUNTER 

EVENT MINE.ENCOUNTER GIVEN LINE,E,M.NUMBER 

“THIS EVENT ASSESSES DAMAGE TO BREACHER AND MINE ASA 
PeesULl OPA MINE ENCOUNIER By [HE BREACHER 


DEFINE 
MINED, “MINE NUMBER 
E “BREACHER NUMBER 


AS INTEGER VARIABLES 


DEFINE 

ROLL, “MONTE CARLO RESULT 

PK “FROM USER DEFINED PK TABLES 
AS REAL VARIABLES 
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DEFINE SEEDL TO OIEA NE Sie DON igo} 10) 


VORA OTD Oeste 
SED = oer 
Giese) 1B 0 

SEED = | 
ALWAYS 


“RETURN IF BREACHER IS DISABLED 

IF ELEMENT.STATUS(V(E)) EQ “OBSTACLE , 
REMeos 

ALWAYS 


CALL UPDATE.LOCATION 

IF GRAPHICS EQ “YES” 

LOCATION.A(V(E)) = LOCATION. F(ELEMENT.X(V(E)),ELEMENT.Y(V(E))) 
DISPLAY V(E) 

ALWAYS 


MINE.ID = ! 
IF ELEMENT.TYPE(V(E)) = 1 
IF MINE.ID = 1 
PK = ONE.ONE 
ENDIF 
IF MINE.ID = 2 
PK = ONE.TWO 
ENDIF 
IF MINE.ID = 3 
PK = ONE.THREE 
ENDIF 
ENDIF 


IF ELEMENT.TYPE(V(E)) = 2 
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[F MINE.ID = | 
Phe= IAVOONE 
ie AEP 
tea th NG DE | 
PK = TWO.TWO 
2 0g 
imo ENED =" 3 
PK = TWO.TEIREE 
ENDIE 
ENDOTE 
Peele MENT iy PECyv(e)) = 3 
IF MINE.ID = 1 
PK = THREE.ONE 
ENDIF 
IF MINE.ID = 2 
PK = THREE.TWO 
ENDIF 
IF MINE.ID = 3 
PK. = THREE.THREE 
ENDIF 
ENDIF 
ROLL = UNIFORM.F(0.0,1.0,SEED) 
PN be IeUNE With ROLLAND PK THUS 
ite ROLL WAST aS, PR WAS 7.774 


PeeROLL <= PK 
SKIP 1 LINE 
PRINT 1 LINE WITH E AND M.NUMBER,TIME.V - COMM.TIME USING 
UNIT 2 THUS 
ELEMENT ** DESTROYED BYtMINE *2272>- Al sor a 


SUBTRACT | FROM TOT.ELEMENT 
REMOVE V(E) FROM RED.TGT.LIST 
ELEMENT.STATUS(V(E)) = “OBSTACLE” 
FILE V(E) IN THE OBSTACLE.LIST 
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IF GRAPHICS EQ “YES” 
ERASE V(E) 
ALWAYS 
CALL FINDGURRENT CP G1V ING Ee VIEL DING CUR er 
OBSTACLE. MAP(E,CURR.CP) = 1 
IF (ELEMENT.Y(V(E)) - ELEM.RADIUS(V(E))) < 
MOVEMENT.PLAN(E.CURR.CP,2) 
[ReUR RICE 4 
OBSTACLE.MAP(E,CURR.CP - 1) = 2 
ALWAYS 
ALWAYS 


CALL OBSTACLE.CONSOLIDATION 
EESE 
" PRINT 1 LINE WITH E AND MES@MBER CSING UNIT 2 THUS 
' ELEMENT ** SURVIVED ENGOUNBER WITH MUENERP 


CALL NEXT.ENCOUNTER GIVING LINE.E 
ENDIF 
FOR EACH MINE IN MINE.FIELD WITH MINE.NUMBER EQ M.NUMBER 
DO 
IF GRAPHICS EQ “YES” 
DCOLOR.A(ICON.A(MINE)) = 6 
DISPLAY MINE AT (MINE.X,MINE.Y) 
CREATE A DEAD.TANK CALLED DT(E) 
DISPLAY DT(E) WITH “TANK2.ICN” AT (ELEMENT.X(V(E)), 
ELEMENT.Y(V(E))) 
ALWAYS 
SUBTRACT 1 FROM TOT.ACTIVE 
MINE.STATUS = “HIT BY BREACHER” 
LOOP 
RETURN 
END 
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Q. ROUTINE INITIALIZE 

ROw NE ENA LIZE 

Peis OW Nei Sells USER DEFINED PARAMETERS ASD 
ere UVEIZES SIMIOLA TiO as 


DEFINE ELEMENT.SPEED AS A REAL VARIABLES 
DEFINE SEEDI TO MEAN INT.F(RANDOM.F(1)*10) 


P1OrAV.OlD ) SEED 


SEED = SEEDI 
IF SEED = 0 
SEED = | 

ALWAYS 


“LOAD INPUT FORM AND SET DEFAULT DATA 

SHOW INPUT.FORM WITH “KHAFIJIL.ERM’ 

LET DTVAL.A(DFIELD.F(’GZ’,INPUT.FORM)) = “NX” 

LET DDVAL.A(DFIELD.F("GZE’,INPUT.FORM)) = 56 

LET DDVAL.A(DFIELD.F(“GZN’,INPUT.FORM)) = 78 

LET DDVAL.A(DFIELD.F(’N.BELT’,INPUT.FORM)) = 1 

LET DDVAL.A(DFIELD.F("M.WIDTH’,INPUT.FORM)) = 200 
LET DDVAL.A(DFIELD.F(”RADIUS”, INPUT.FORM)) = .2 
LET DDVAL.A(DFIELD.F(’DIST’”, INPUT.FORM)) = 100.0 
LET DDVAL.A(DFIELD.F(’DEV’,INPUT.FORM)) = 5 

LET DDVAL.A(DFIELD.F(’N.LANE’,INPUT.FORM)) = 2 
LET DDVAL.A(DFIELD.F(’TOT.ELEMENT’ INPUT.FORM)) = 7 
LET DTVAL.A(DFIELD.F(’GO’,INPUT.FORM)) = “YES” 
LET DDVAL.A(DFIELD.F(’N.WEAPON’,INPUT.FORM)) = 2 


CALL DEVINIT.RCUVT,GRAPHIC’) YIELDING DEVPTR 


OPEN 7 FOR INPUT, DEVICE = DEVPTR 
OPEN S-FPOR,OUIPUT, DEVICE — DEVPIR 
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ESES FOR GRAPHIG Ola eal 
LET PIbLD ID => ACCEPT Ph ee ior) 


LET TOT.ELEMENT = DDVAL.A(DFIELD.FCTOT.ELEMENT’, 
INPLT.FORM)) 

LET N.WEAPON = DDVAL.A(DFIELD.F(’N. WEAPON’, INPUT.FORM)) 

LET N.LANE = DDVAL.A(DFIELD.F(’N.LANE’,INPUT.FORM)) 

LET GR.ZONE = DTVAL.A(DFIELD.E(’GZ’ ,INPUT.FORM)} 

LET GR.BASE.E = DDVAL.A(DFIELD.F("GZE’,INPUT.FORM)) 

LET GR.BASE.N = DDVAL.A(DFIELD.F("“GZN’,INPUT.FORM)) 

LET N.MINE.BELT = DDVAL.A(DFIELD.F(’N.BELT’,INPUT.FORM)) 

LET MF.WIDTH = DDVAL.A(DFIELD.F(’M.WIDTH’,INPUT.FORM)) 

LET MINE.DEV = DDVAL.A(DFIELD.F(’ DEV’ ,INPUT.FORM)) 

LET TEMP.RADIUS = DDVAL.A(DFIELD.F(”RADIUS’, INPUT.FORM)) 

LET MAX.DISTANCE = DDVAL.A(DFIELD.F(’DIST’, INPUT.FORM)) 

LET GO = DTVAL.A(DFIELD.F(’GO’,INPUT.FORM)) 


SHOW TANK.FORM WITH “TANK.FRM” 
“METERS 
LET DDVAL.A(DFIELD.FUTANK.WIDTH”, TANK.FORM)) = 3.4798 
“LENGTH WITH GUN FORWARD 
LET DDVAL.A(DFIELD.FCTANK.LENGTH’, TANK.FORM)) = 9.828276 
LET DDVAL.A(DFIELD.FCTRACK.WIDTH’, TANK.FORM)) = .635 
LET DDVAL.A(DFIELD.F(‘-BREACHER.TYPE’, TANK.FORM)) = 1 
LET DDVAL.A(DFIELD.F("KILL.RATE”, TANK.FORM)) = .03 
LET DDVAL.A(DFIELD.F("SPEED”, TANK.FORM)) = 85 


LET FIELD.ID = ACCEPT FH TANKIEOR 1,0) 
LET E.WIDTH = DDVAL.A(DFIELD.F(“TANK.WIDTH"’, TANK.FORM)) 
LET E.LENGTH = DDVAL.A(DFIELD.F(’TANK.LENGTH"’, TANK.FORM)) 


LET E.TRACK.WIDTH = DDVAL.A(DFIELD.F(’TRACK.WIDTH’, 
TANK.FORM)) 
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LET BREACHER.TYPE = DDVAL.A(DFIELD.F(’BREACHER.TYPE’, 
TANK.FORM)) 

LET KILL.RATE = DDVAL.A(DFIELD.F(“KILL.RATE’”, TANK.FORM)) 

LET ELEMENT.SPEED = DDVAL.A(DFIELD.F(’SPEED”, TANK.FORM)) 


SHOW PK.FORM WITH “PKFORM.FRM" 
LET DDVAL.A(DFIELD.F(“ONE-ONE’”, PK.FORM)) = 1 

LET DDVAL.A(DFIELD.F(“ONE-TWO”, PK.FORM)) = 1 

LET DDVAL.A(DFIELD.F(“ONE-THREE’”, PK.FORM)) = 1 
LET DDVAL.A(DFIELD.F(’TWO-ONE”, PK.FORM)) = 1 

LET DDVAL.A(DFIELD.F(’TWO-TWO”, PK.FORM)) = | 
LET DDVAL.A(DFIELD.F(’TWO-THREE’, PK.FORM)) = 1 
LET DDVAL.A(DFIELD.F(’THREE-ONE’”, PK.FORM)) = 1 
LET DDVAL.A(DFIELD.F(’THREE-TWO”, PK.FORM)) = 1 
LET DDVAL.A(DFIELD.F(’THREE-THREE”, PK.FORM)) = 1 


Pee eb = ACCEMI FIPK.FORM,0) 


LET ONE.ONE = DDVAL.A(DFIELD.F(’ONE-ONE”, PK.FORM)) 
LET ONE.TWO = DDVAL.A(DFIELD.F(“ONE-TWO’, PK.FORM)) 
LET ONE.THREE = DDVAL.A(DFIELD.F(’ONE-THREE”, PK.FORM)) 
LET TWO.ONE = DDVAL.A(DFIELD.F(’TWO-ONE’, PK.FORM)) 
LET TWO.TWO = DDVAL.A(DFIELD.F(“TWO-TWO”, PK.FORM)) 


LET TWO.THREE = DDVAL.A(DFIELD.F(’TWO-THREE”, PK.FOP.M)) 
LET THREE.ONE = DDVAL.A(DFIELD.F(’THREE-ONE’, PK.FORM)) 
LET THREE.TWO = DDVAL.A(DFIELD.F(’THREE-TWO”, PK.FORM)) 


LET THREE.THREE = DDVAL.A(DFIELD.F("THREE-THREE’”, PK.FORM)) 


CREATE EACH MINE.BELT 

FOR EACH MINE.BELT DO 
SHOW INPUT2.FORM WITH “KHAFJI2.FRM” 
LET DDVAL.A(DFIELD.F("MINE.BELT”,INPUT2.FORM)) = MINE.BELT 
LET DDVAL.A(DFIELD.F(’N.MINES(MINE.BELT)’,INPUT2.FORM)) = 30 
LET DDVAL-A(DFIELD. FC DEPTH(MINE.BELT) .INPUT2.FORM)) = 50 
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LET DDVATBX DI TELDIFUC MINE TYPE (NP POR) ar 
LET FIELDID —"ACCEP iin ie Ore vig) 


LET MINE-B.1y PEOUNESEERR 
DDVAL.A(DPIELD E(w ET TYVE INPUT2. FORK) 
LET DEPTERMINE BEL) — 
DDVAL.A(DFIELD.FC DEP TEI MIENE BEET) INPUTS FORM) 
LET N.MINES(MINE.BELT) = 
DDVAL.A(DFIELD.FCN.MINES(MINE.BELT)’ INPUT2.FORM)) 
LOOP 


CREATE EACH WEAPON 

FOR EACH WEAPON DO 
SHOW INPUT4.FORM WITH “KHAFJI4.FRM’ 
LET DDVAL.A(DFIELD.F(’ WEAPON’, INPUT4.FORM)) = WEAPON 
LET DTVAL.A(DFIELD.F(“WEAPON.TYPE”,INPUT4. FORM)) = 

“FLOWITZER” 

LET DTVAL.A(DFIELD.F(“WEAPON.UNIT’,INPUT4.FORM)) = “BLUE” 
LET DDVAL.A(DFIELD.F(“LETHAL.RADIUS’,INPUT4.FORM)) = 10 
LET DDVAL.A(DFIELD.F(’ERROR.X”,INPUT4.FORM)) = 15 
LET DDVAL.A(DFIELD.F(“ERROR.Y”,INPUT4.FORM)) = 15 
LET DDVAL.A(DFIELD.F(’N.VOLLEYS’,INPUT4.FORM)) = 4 


LET FIELD.ID = ACCEPT.FUINPUT4.FORM,Q) 


LET WEAPON.TYPE= 
DTVAL.A(DFIELD.F(“WEAPON.TYPE’,INPUT4.FORM)) 

LET WEAPON.UNIT= 
DTVAL.A(DFIELD.F(”“WEAPON.UNIT’,INPUT4.FORM)) 

LET LETHAL.RADIUS = DDVAL.A(DFIELD.F(“LETHAL.RADIUS’, 

INPUT4.FORM)) 

LET ERROR.X = DDVAL.A(DFIELD.F("ERROR.X”,INPUT4.FORM)) 

LET ERROR.Y = DDVAL.A(DFIELD.F(“ERROR.Y’,INPUT4. FORM)) 

LET N.VOLLEYS = DDVAL.A(DFIELD.F(’N. VOLLEYS’,INPUT4.FORM)) 
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LOOP 
OVEN GENT) PPORINIT EL. SA ve IS “WEAPONS.DALT 
OPEN Gt 2 FOrRcoul RPE lL NANNIES OU LRILEDAT’ 
ESe2 TOR OuUrLeY 


CRBS = ORB woe. & 1000 
CAG BANS EN) = Gre binSEsN 1000 


READ COMM.TIME,FDC.TIME,INIT.GUN.TIME, 
GUN.TIME.PER.ROUND,TOF USING UNIT |! 


RESERVE V4) AS TOT.ELEMENT 

CREATE EACH LANE 

FOR EACH LANE DO 
SHOW INPUT3.FORM WITH “KHAFJI3.F RM” 
LET DDVAL.A(DFIELD.F((N.ELEMENT”’ INPUT3.FORM)) = 4 
LET DDVAL.A(DFIELD.FCLANE’,INPUT3.FORM)) = LANE 
LET DDVAL.A(DFIELD.FCSTART.X” INPUT3.FORM)) = 56I 


LET FIELD.ID = ACCEPT.F(INPUT3.FORM,0) 

LET N.ELEMENT = DDVAL.A(DFIELD.F("(N.ELEMENT’ ,INPUT3.FORM)) 

LET START.X = 100*DDVAL.A(DFIELD.FCSTART.X’ INPUT3.FORM)) - 
GR.BASE.E 


LOOP 


NUM.CP = 2*INT.F((TOT.ELEMENT/N.LANE)+(MAX.DISTANCE / 20.0) + 
2.0) 


SHOW INPUTS.FORM WITH “KHAFJIS.FRM” 
Ed DIVALA(DFIELD FEGRAPHICS TNPUTS.EORM)) “= “YES” 
LET DDVAL.A(DFIELD.F("N.RUN’,INPUTS.FORM)) = 5 


LET FIELD.ID = ACCEPT.F(INPUTS.FORM,0) 
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LET GRAPHICS = DIVALA(DPIELD A GRAPHICS TNE si ORs i 
LET N.RUN = DDVAL-A(DULIEU Bik Riis rOR i), 


FORT = 17010 D0 
Delo) {Sere 
LOOP 


RESERVE MOVEMENT.PLAN(™,*,*) AS TOT.ELEMENT BY NUM-CP BY 
RESERVE OBSTACLE. MAP(*.*) AS TOMELEMENT BY MAX F(NU MGR 
RESERVE CP(”,”) AS POT ELEVEN biene cer 

RESERVE By PASS\MAP( =, ) AS [OPE Ew Nie yaaa. 

RESERVE DiC eas FORELENIE Ny) 


FOR Z = 1 TON.LANE DO 
IFZ=1 
FOR I = | to NELEMENT(Z) DO 
CREATE A ELEMENT CALLED V(I) 
ELEMENT.STATUS(V(I)) = “ACTIVE” 
FILE V(I) IN THE RED.TGT.LIST 
ELEMENT.NUM(V(I)) = I 
CALL MAKE.ROUTE 
“INITIALIZE ELEMENT START POINT LOCATION 
“BASED ON MOVEMENT PLAN 
ELEMENT.X(V(I)) = MOVEMENT.PLAN(I,1,1) 
ELEMENT.Y(V(I)) = MOVEMENT.PLAN(L,1,2) 
IF GO = “YES” 
SPEED(V(I)) = ELEMENT.SPEED*(1.0 - (N.VOLLEYS*0.05)) 
ELSE 
SPEED(V(I)) = ELEMENT.SPEED “METERS PER MINUTE 
ALWAYS 
SHOW V(I) WITH “TANK” 
WIDTH(V(I)) = E.WIDTH 
ELEM.RADIUS(V(I)) = SQRT.F((WIDTH(V(I))*E.LENGTH)/PI.C) 
TRACK.WIDTH(V(I)) = E.TRACK.WIDTH 
ELEMENT.TYPE(V(I)) = BREACHER.TYPE 
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DEATH.TIME(V(I)) = NORMAL.F(1 KILL.RATE,S.0,SEED) 
GALL NEXT. ENCOUNTER GIVING ZI 

LOOP 

ELSE 

AAA = 0 

FORI = 1TOZ-1DO 
AAA = AAA + N.ELEMENT(Z-I) 

LOOP 

FOR I = (AAA+1) to (N.ELEMENT(Z) + AAA) DO 
CREATE A ELEMENT CALLED V(1) 
ELEMENT.STATUS(V(I)) = “ACTIVE” 
FILE V(I) IN THE RED.TGT.LIST 
ELEMENT.NUM(V(I)) = I 
call MAKE.ROUTE 

“INITIALIZE ELEMENT START POINT LOCATION 
“BASED ON MOVEMENT PLAN 
ELEMENT.X(V(I)) = MOVEMENT.PLAN(L,1,1) 
ELEMENT.Y(V(I)) = MOVEMENT.PLAN(I, 1,2) 
IF GO = “YES” 
SPEED(V(I)) = ELEMENT.SPEED*(1.0 - (N. VOLLEYS*0.05)) 
ELSE 
SPEED(V(I)) = ELEMENT.SPEED “METERS PER MINUTE 

ALWAYS 
SHOW V(I) WITH “TANK” 
WIDTH(V(1)) = E.WIDTH 
ELEM.RADIUS(V(1)) = SQRT.F((WIDTH(V(1I))*E.LENGTH)/PL.C) 
TRACK.WIDTH(V(I)) = E.TRACK.WIDTH 
ELEMENT.TYPE(V(I)) = BREACHER.TYPE 
DEATH.TIME(V(I)) = NORMAL.F(1/KILL.RATE,5.0,SEED) 
CALL NEXT.ENCOUNTER GIVING Z,I 

LOOP 

ALWAYS 
LOOP 


FORA] 1 TO 1OTELEMENT DO 


111 


LOCATION-A(V(1))= LOCA TIONSE( ELEMENT. X(V(RELEME MIR (VCR 
LOOP 


RETURN WE SND 


R. ROUTINE UPDATE.LOCATION 
ROUTINE UPDATE.LOCATION 


“THIS ROUTINE CAUSES THE IDENTIFIED ELE TO BE MOVED ALONG Is 
“PREDISIGNATED MOVEMENT PATH A SPECIFIED DISTANCES EY 
“FIRST DETERMINING WHAT PATH TOslUSE,GALC COORDINATES 
“OF THE MOVE RESULT, THEN UPDATING ELE LOCATION FIELDS 


DEFINE DISTANCE AS A REAL VARIABLE “DISTANCE TO NEXT CP 
DEFINE DISTANCE. TO.TRAVEEVAS A REAL VARIABUDE ITRVE Dist 
DEFINE TIME.PASSAGE AS REAL VARIABLES 


DEFINE Xl AS A REAL VARIABLE “DELTA X TO NEAIRGE 
DEFINE Yl AS A REAL VARIABLE “DELTA Y TO NEXT CP 
DEFINE X2 AS A REAL VARIABLE “MOVEMENT IN X 
DEFINE Y2 AS A REAL VARIABLE “MOVEMENT IN Y 


DEFINE MOV.FRACTION AS A REAL VARIABLE “ELE MOVEMENT AS 

“A FRACTION OF DISTANCE 

“TO NEXT CHECKPOINT 
“PRINT | LINE WITH TIME.V, OLD.TIME USING UNIT 2 THUS 
“LOCATION UPDATE IS OCCURING AT ***.** LAST UPDATE WAS AT ***.** 


IF TOT.ELEMENT LE 0 
RETURN 


ALWAYS 


LET TIME.PASSAGE = TIME.V - OLD.TIME 
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pis OLD INGE =. Tisha y 


> $s - 


PO er NORA So roLList Wilt CER MEN EST ATUS LQ 
Ge ke “ORI eS TAS Os PSs DO 
PSE eG LD ia ive ok ND LENE NT. ¥ G20 
SUB PRVCT TP ROwWETOT EERIE ND 
RE WOVE CE VME Vit ROM RED.tG TiS [ 
ELEVE WS GyUSe— “Ons TAGCLE 
Pierce ie ern hee OGSTACEE LIST 
LP Cae CSA O PES 
PRASe EVENT Nd 
CREATE AOEADIIANK CALLED DI LLEMEN TSCM) 
DISE EAD WEE MEN INL) WOH DANKZICN At 
(BPE MENT Ebr we NI.) } 
ALWAYS 
CAPE ND CURRENIECr GIVING ELEMENT. NUS YIELDING 
CEhhecr 
OBSTACLE MAP(ELEMENT NUMECL RE CP) = 1 


[LF (ELEMENT Y -ELEMRADIUS). = 
MOVE MeN PLAN ELEVEN TL NUM,CURK:CP2) 
le GEkR CP > 
OBST ACHE MAP(ELE MEIN Sev CURK. CP = 1)= 2 

ALWAYS 
ALWAYS 
SKIP 2 DUNES 
PRESB Wile LBMENIENC Ve TIME y=. COMM TIME Tiivs 
EPL MEN AonteVeED By DIREC FIRE Wd ****** 


CALL OBSTACLE.CONSOLIDATION 


REE RN 
ALWAYS 
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CALL DELTA.DISTANCE GIVING ELEMENI.NEM AND TIMES ASS ene 
YIELDING DIS TANCE. JOA Ree 


DETERNELNE, DISTANCE TO NEXT CHEGKPOIL a 
CASO BU diese clit oN ID eibs oy ¢ 
CALL DISTANCE 10 CPiGiIy UNGaE VE VIE NN vie eel 
DIST eNCE; x1 yi 


“COMPUTE THE FRACTION OF THE DISHANCE 
“TO THE NEAT CHECKPOINT THAT THE REQUIRED 
“MOVE WILL COVER 

MOV.FRACTION = DISTANCE.TO.TRAVEL / DISTANCE 


“TRANSLATE THAT FRACTION INTO X AND Y 
“MOVEMENT 

Al * MOV.FRACTION 

Yl * MOV.FRACTION 
“AND ADD THAT MOVEMENT TO THE CURRENT 
“ELEMENT POSITION 

ELEMENT, —sE LE MEN 

ELEMENT YY — £LE MEN yee 

IF ELEMENT.Y GT 2*MAX.DISTANCE 

ELEMES ESTATUS<== THROUGH - 


< 4K 
Nb 
| 


SUBTRACT i FROM TOT.ELEMENT = “ign 
ELEMENT.NUM,.ELEMENT STATUS TOTELEMENT ELEMENT ¥ 
ALWAYS 
LOOP 
RETURN 


END 
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S. PROCESS RED.ARTY.ATRK 
PROCESS RED ARI a heGlyV ES AINIPOINT.*” ASD -AINIPOINT..7 
Sei OCES Shiite osReEDeay ki Ry eo S | BIkEAGEI NG FORCE 


Piers Ole INIVAG RY ALNIPOINT Xo POINT Y DISTANCE. 
Pyke tOOLED VARIANCE OF WLAPON ERRORS (COOKRTE CLIIER) 
XN 

AS REAL VARIABLES 

DEFINE SEEDI TO MEANAINT. F(RANDOM.F(7)* 10) 


BrOrVOlLD OU SEED 
sei = SEEDI 
IF SEED = 0 

SEED = | 
ALWAYS 


“TO COMPUTE POOLED VARIANCE 
FOR EACH WEAPON DO 
IF WEAPON.UNIT = “RED” 
Pook — 20K ReRROR.« 2 PERROR a 2) 
ADD (LETHAL. RADIUS#*2)\(2*PVAR) TO XX 
ALWAYS 
LOOP 


“PROBABILITY OF KILL (COOKIE CUTTER) 
P.KILL = 1-EXP.F(-XX) 


FOR EACH WEAPON DO 
IF WEAPON.UNIT = “RED” 
POR eS Ou. VOLE YS WO 
MOR MAUS MELING TO DETERMINE IMPACT LOCATION 
IMPACT.X = NORMAL.F(AIM POINT. A,ERROR.X,SEED) 
[VSPA LY —ANOK MAL.E(ALYIPOIN TY ERROR.Y, SEED) 
ADD 1 TO N.RED.ROUND 


11) 


IF GRAPHICS EQ “YES” 
CREATE AN XPLODE CALLED XR(N.RED.ROUND) 
DISPLAY XR(N.RED.ROUND) WITH “XPLODER.ICN” AT 
(IMPACT.X,IMPACT.Y) 
ALWAYS 


“TO DETERMINE TARGET,BREACHERS AND MINES, PROXIMITY TO IM- 
PACT 
FOR EACH MINE OF MINE.FIELD WITH ((IMPACT.X-MINE.X) 
+ (IMPACT.Y-MINE.Y)) LE (1.42*LETHAL.RADIUS) AND 
MINE.STATUS EQ “ACTIVE” DO 
DISTANCE = SQRT.F((IMPACT.X-MINE.X)**2 + 
(IMPACT. Y-MINE. Y)**2) 


“TO DETERMINE DAMAGE ASSESSMENT AGAINST MINE 
Ir DISTANCE PE CET Rew s 
PRINT I LINE WITH MINE.NUMBER,WEAPON.UNIT, 
WEAPON. TYPE,TIME.V-COMM.TIME THUS 
MINE # **** DESTROYED BY **** “435A TIME 3 A PGi. 


PRINT | LINE WitihigGReZONE MINE. X +GR.BASE.E, 
MINE. Y +GR.BASE.N USING UNIT 2 THUS 


Rok RR A Ok ek kk ok 


SUBTRACT | FROM TOT.ACTIVE 

MINE.STATUS = “DESTROYED BY RED ARTY” 

IF GRAPHICS = “YES” 
DCOLOR.A(ICON.A(MINE)) = 6 
DISPLAY MINE 

ALWAYS 

ALWAYS 
LOOP 


“TO DETERMINE DAMAGE ASSESSMENT AGAINST BREACHER 
IF RANDOM.F(J) LE P.KILL 
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FOR EACH ELEMENT OF RED.TGT.LIST WITH 
((IMPACT.X-ELEMENT.X) + (IMPACT.Y-ELEMENT.Y)) LE 
fe? ETNA RADIES DO 
DIGTANGE ="SORT1 (IMIPNGI S-LLE MIEN TN 2 + 
(IMPACT. Y-ELEMENT.Y)*#2) 
IF DISTANCE LE LETHAL.RADIUS 
PRINT 1 LINE WITH ELEMENT.NUM, WEAPON.UNIT, 
WEAPON.TYPE THUS 
ELEMENT # ** DESTROYED BY **** #*##*##** AT GRID: 


PRIS ENS WiTsGR ZONE EPReevMENT + GR BASEL, 
PE VIE NG + GR Boe USING UNIT 2 THUS 


He tho ok kok sh Rho 


SUBTRACT 1 FROM TOT.ELEMENT 
REMOVE ELEMENT FROM RED.TGT.LIST 
ELEMENT.STATUS = “OBSTACLE” 
IF ELEMENT.Y GT0 “IN MINE FIELD 
FILE ELEMENT IN THE OBSTACLE.LIST 
ALWAYS 
IF GRAPHICS EQ “YES” 
CREATE A DEAD.TANK CALLED DT(ELEMENT.NUM) 
DISPLAY DT(ELEMENT.NUM) WITH TAN KONGNG AT 
(ELEMENT.X,ELEMENT.Y) 
ERASE ELEMENT 
ALWAYS 
ALWAYS 
LOOP 
ALWAYS 
LOOP 
ALWAYS 
LOOP 


PRINT 2 LINE WITH INITIAL - TOT.ACTIVE, TOT.ACTIVE THUS 
MINES DESTROYED ***% 


Ly 


MINES REMAINING **** 


RET RN END 


T. ROUTINE BYPASS 
ROUTINE BYPASS GIVEN [D, OBS.ID, C.X YIELDING X1, Y1 


DEFINE OBS.ID AND ID AS INTEGER VARIABLES 
DEFINE C.X AS A REAL VARIABLE 

DEPINE OBSTACLE - RADIUS AS eR EAI VARIABLE 
DEFINE ELEMENT.RADIUS AS A REAL VARIABLE 
DEFINE COMBINED.RADIUS AS A REAL VARIABLE 
DEFINE X.OB AS A REAL VARIABLE 

DEFINE Y.OB AS A REAL VARIABLE 

DEFINE BYPASS.X AS A REAL VARIABLE 

DEFINE HYPOT AS A REAL VARIABLE 

DEFINE BYPASS.SEG AS A REAL VARITABEE 
DEFINE PIVOT.1.¥ AS A REAL VARIABLE 

DEFINE PIVOT.2.Y AS A REAL VARIABLE 

DEFINE CURR.CP AS AN INTEGER VARIABLE 
DEFINE PATH.1.SLOPE AS A REAL VARIABLE 
DEFINE PATH.1.INTERCEPT AS A REAL VARIABLE 
DEFINE PATH.2.SLOPE AS A REAL VARIABLE 
DEFINE PATH.2..NTERCEPT AS A REAL VARIABLE 
DEFINE LINEJLSE@GPE ASA REAL VARIADEE 
DEFINE LINE.I.INTERCEPT AS A REAL VARIABLE 
DEFINE LINE.2.SLOPE AS A REAL VARIABEE 
DEFINE LINE: 2INTERCEPT AS AREA Aber 
DEFINE X1, Yl AS REAL VARIABLES “COORDINATES OF EXIT POINT 
DEFINE X2, Y2 AS REAL VARIABLES 
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DEO Sewer yes weak b VARLABIL 
Pitt PEN NS REA VA RIAD LE 
PPPs Noe Ny EN EG LIV VL 


Peer son uD l= Dy PASSA NEU. “Py OT 3 COORDINATE 
RETURN 
ALWAYS 


Spow Cl RADICS =JECe NV KADIL S(\(O8S1D)) 
EBEMENTRADIVUS = BLESERADICS(V(ID)) 

CO IBN ED IRADIES = OBS TACIE RADIES “ELE VENT RADIUS 
peoB —SELEE MEN TN(V(OBS.1D}) 

heObe = PLENIEN T-1(\ (OBS.1D)) 

Pie. Y = “LD NE CP) 


oa iN CURRE weer GlyviINGrb) ,IERDING CERRIC? 


Rea OB = CoN oe OOO) No Wen Kl ier bh 


” PRINT | LINE WITH X.0B, C.X, ID THUS 
” OBSTACLE CENTER IS AT X = ***,##, [NT X = ***.** FOR ELEMENT ** 


BYPASS.X = X.OB + COMBINED.RADIUS 
PINE.BSPOPE. = 1:0 

iS 2 SLOPE = =1:0 

ENUF 


Pee OD = SCs “PASS*O™N BIE VERY 


VEIN | inet NEW ET OB. Cx cl TiS 
Mes Sl CMe Goa ae ee UN ee ee ND eer oe Oe 


BYPASS.X = X.OB - COMBINED.RADIUS 
LINE.1.SLOPE = -1.0 


rr? 


INES SPORE V=—1e0) 
EN DUr 


’ PRINT | LINE WITH ID THUS 
’ BUILDING A BYPASS MAP FOR ELEMENT ** 


HYPOT = SQRT.F(2 * (COMBINED.RADIUS**2)) 
BYPASS.SEG = HYPOT - COMBINED.RADIUS 
PIVOT.1.Y = Y.OB - BYPASS.SEG 


BYPASS.MAP(ID,2,1) = BYPASS.X “PIVOT.1 X COORDINATE 
BYPASS.MAP(ID,2,2) = PIVOT.1.Y “PIVOT.1 Y COORDINATE 


PIVOT.2.Y = Y.OB + BYPASS.SEG 


BYPASS.MAP(ID,3,1) = BYPASS.X “PIVOT.2 X COORDINATE 
BYPASS.MAP(ID,3,2) = PIVOT.2.Y “PIVOT.2 Y COORDINATE 
BYPASS.MAP(ID,2,3) = 1000000.0 “BIG NUMBER TO APPROX INFINITY 


“INCOMING PATH EQUATION 
PATH.I.SSLOPE = MOVEMENT.PLAN(ID,CURR.CP, 3) 
PATH.L.INTERCEPT = MOVEMENT.PLAN(ID,CURR.CP, 4) 


LINE.LINTERCEPT = PIVOT.1.Y > (LINE SLORE,*.BYERASS:X) 


“INTERSECTION POINT OF PATH EQN 
“AND FIRST LEG OF BYPASS 
(CINE LINTERGE PT PAE UN EINE tal); 
(PATH.1I.SLOPE - LINE.1.SLOPE) 
PATH YT.SLOPE* X1l>+ PATH OINTERGEPT 


Xl 


Yi 


BYPASS.MAP(ID,1I,1) = X1 "EXIT.X COORDINATE 
BYPASS.MAP(ID,1,2) = Y1 “EXIT. Y COORDINATE 
BYPASS.MAP(ID,1,3) = LINE.1.SLOPE “SLOPE FOR LEG | 
BYPASS.MAP(ID,1,4) = LINE.LINTTERCEPT “Y INTERCEPT FOR LEG I 


120 


J= 1 OES VEY A LorENOGRENTEN lick 


eee wot Whee GIVE NG: HO Vet NG. CURR CP 


REChHECK 


weer i MO be PLAN ID CE RR GP +" Je2) 


Bev I NERC ley = PivOl2.y-- (leit SLOPE BYPASS.) 


Pee CD = TEN ABY “LAS CHECK PO EN 
X20 = FINALY 
ere Ne Ce ese N VE RCEP LT) INE 2S EOE 

Ean Dr 


PaaS ACPA SEARENAL-Y 
Peli oUORE aviv VE NIUP LAND CURR-GPS) CURR PATIVSLOPE 
Pie NER CEr = MOVEMENT PLANCD CURRY 4) CURK PALE 
EN 


/ BSSONTE STILLS SANE CP LS TERVAL 
NOS COREG TE REE N UR YOUN 
(EESE ANI ERCEPT - PAVE 2S IeR CEPI) 4 
(PAIS bOPRE = BENE. 2 SLOPE) 
a2 = PA 2 SEORE * 42 4 PA CHIN eERCEP I 


2 


BO a 
ber Ase vwAL ID 4 1) = X2 REZe Rees 
BYPASS. MAP(ID,4,2) = Y2 TREE N RY oy 


Bre ASo MAPCID. 3.3).—=- LINE.2 SLOPE 
BYPASS MAPUID3.4)-—-LINE.2. WNIERCEPT 


lr ENTERENCE INTERCEPT NOT IN THIS INTERVAL 


“CHECK THE NEXT INTERVAL 
ey eee Nelle Glee 


je al “ENTE RATING Re vie ie 
GO TO REGHIECK “GOTO 

EIDE e 

ples POISONS 

END a haves 


ROUTINE RESTART 
DEFINE SEEDI TO MEAN INT.F(RANDOM.F(8)*10) 


SEED = SEEDI 
IF SEED = 0 
SEE Ol 

ALWAYS 


FOR Z = 1 TON.LANE DO 
IFZ=1 
FOR I = 1 to N.ELEMENT(Z) DO 

FORJ = 1TO4DO 

FOR K = 1TO5DO 

BYPASS.MAP(LJ,K) = 0 

LOOP 
LOOP 
ELEMENT.STATUS(V(I)) = “ACTIVE” 
CALL MAKE.ROUTE 
ELEMENT.X(V(I)) = MOVEMENT.PLAN(I,1,1) 
ELEMENT.Y(V(1)) = MOVEMENT.PLAN(L,1,2) 
ELEM.RADIUS(V(I)) = SQRT.F((WIDTH(V(1))*E.LENGTH)/PI.C) 
DEATH.TIME(V(I)) = NORMAL.F(1/KILL.RATE,5.0,SEED) + TIME.V 
MOVEMENT.PLAN(I,1,5) = 1 
CALL NEXT.ENCOUNTER GIVING Z,I 
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OOP 
IESE 

AAA = 0 

POW) = tra = |) DoO 
DeeNe= oe Seb RNIN Ity-T) 

eo 

PO = tA a to (ELE VIE SI) AA) DO 
Ebi ENS LAE Stl) = ACI 
FORke) =H TOmb® 

PORK, = 1105 D0 
By PASS. WAPCLI K)-=-0 
EOOr 

POOP 
CAPE MAKE. ROU TE 
Pele vbe tent yl) SOW ENE NT CPLAN( I 11) 
Pe vee ay (VC) MOY E MENT Pia Yel ,2) 
Peeve CSV) =asOR LPOVIDIH(GY Oy). E. LENG Td) Pie) 
DE Ti Ovi sy Qh NOR VIAL POR ILERATE, 5.0 SEED)s +> TIME. y 
NOV EIEN EPUAN To) ==1 
Ae New e NCOUN LER Gly LNG Z,! 

LOOP 

ALWAYS 
LOOP 


Pete = 1tOwdOT-EUEMENT DO 
HOGA TIONS (1) = LOCATION OELE MIEN TAC VU) ERE MENT. yC¥Cl))) 


LOOP 


RETURN © END 
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U. ROUTINE SET.DISPLAY 
ROTI Nod DISRibAn 
“THTS ROUTINE SEES GRA CS i Ory 


VesieQ io lGy == 
CALL SETWORLD.R(O,MPF.WIDTEH -MAX.DISTANCE, 2, MAX. DIST AS Git 
UN Ue SMe y= O08) 


REVERS: cas) 
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